将单元格的（整列）内容附加到另一个单元格（不创建新列）的宏或公式答案

【问题标题】：Macro or formula to APPEND (not create a new column) a cell''s (entire column) content to another将单元格的（整列）内容附加到另一个单元格（不创建新列）的宏或公式
【发布时间】：2016-11-08 16:07:22
【问题描述】：

尝试创建宏或找到能够将 K 列中所有行的内容分别附加到 S 列中所有行的末尾的解决方案。创建一个新列对我没有帮助。

我需要能够将 K 列中的数据附加到 S 列（每个月）。任何帮助表示赞赏。这两列都在同一张纸上。

【问题讨论】：

所以，没有公式，你需要把K1加到S1的末尾？（或其他）之间是否会有空格？
您还说创建列没有帮助 - 您的意思是您不能使用辅助列，还是不知道如何使用？
到目前为止你尝试了什么？发布您的代码！运行时发生了什么？你期望会发生什么？你具体有什么问题？ stackoverflow.com/help/mcve

标签： excel macros

【解决方案1】：

试试这个子：

Sub AppendColumns()
  Dim sheetname As String, srccell as String, dstcell as String
  Dim src As Range, dst As Range
  Dim y As Integer

    sheetname = "Sheet1" 'Put your sheet´s name here, as listed in VBA file list
    srccell = "K1" 'Put your source top cell here
    dstcell = "S1" 'Put your destination top cell here

    Set src = Worksheets(sheetname).Range(srccell) 
    Set dst = Worksheets(sheetname).Range(dstcell)         
    y = 0
    Do Until src.Offset(y, 0) = ""
        dst.Offset(y, 0) = dst.Offset(y, 0) & src.Offset(y, 0)
        y = y + 1
    Loop
End Sub

【讨论】：