复制一系列数据并将其粘贴到单独的工作表单元格中

出于某种原因，该范围只复制在“11937”表中从A1开始的前两行，我需要它从单元格A2开始，并将所有数据复制到列AL，并将该数据粘贴在从“C2”开始的表“STS”中。

请帮忙

With Sheets("11937") .Range("A2:AL" & Cells(Rows.Count, "B").End(xlUp).Row).CopyDestination:=Sheets("STS").Range("C2") End With 

Answer 1

您的上校B是空的或Cells(Rows.Count, "B")指的是可能不是 11937的Activesheet 。 因此，总是build议您完全限定您的对象。

这是一个例子

 Dim lRow As Long With Sheets("11937") lRow = .Range("B" & .Rows.Count).End(xlUp).Row .Range("A2:AL" & lRow).Copy Destination:=Sheets("STS").Range("C2") End With