最後の列の値を新しいシートに取得するマクロ

Question

マクロを作成して、各シートの最後の列（私の場合は列R）の値を「MainSheet」という新しいシートにします。

最後の列の値がメインシートの列A、Bにフェッチする必要があります4枚がある場合は、C & D

あなたのデータを仮定すると、事前に感謝

Answer 1

は常に、あなたがしたい各シートにA1で起動しますそれからコピーが始まるかもしれません：

Sub CopyLastColumns() 
    Dim cnt As Integer, sht As Worksheet, mainsht As Worksheet, col As Integer, rw As Integer 

    Set mainsht = Worksheets("MainSheet") 

    cnt = 1 
    For Each sht In Worksheets 
     If sht.Name <> "MainSheet" Then 
      sht.Columns(sht.Range("A1").CurrentRegion.Columns.Count).Copy 
      mainsht.Columns(cnt).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
      mainsht.Cells(10, cnt) = sht.Range("A2") 
      cnt = cnt + 1 
     End If 
    Next sht 

    With mainsht 
     For col = 1 To cnt 
      For rw = .Cells(65536, col).End(xlUp).Row To 1 Step -1 
       If .Cells(rw, col) = "" Then 
        .Cells(rw, col).Delete Shift:=xlUp 
       End If 
      Next rw 
     Next col 
    End With 

End Sub