宏来得到最后一列的值，以新的工作表

Question

我想创建一个宏来得到最后一列的每个表的值（在我的情况列R）到一个名为“MainSheet”

新的工作表如果有4张的最后一列值应取到mainsheet列A，B，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