マクロ（新しい列を作成しない）APPEND（別の列を作成しない）

Question

列Kのすべての行から内容を追加できるようにマクロを作成しようとしています列Sのすべての行の終わりを表します。新しい列を作成しても私は役に立ちません。

データを列Kから列S（毎月）にAPPENDする必要があります。どんな助けもありがとうございます。これらの列は両方とも同じシート上にあります。

Answer 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