Question

我想将一个列从一个工作表导入到另一个工作表而不粘贴表格的顶部。这是我的代码，有人可以告诉我如何修复它吗？

Public Sub Click()
 Sheets("PTR").Range("B4").Select

 Worksheets("Analyse").Range("C:C").Copy Destination:=Sheets("PTR").Range("B:B")
 Application.CutCopyMode = False
End Sub

Answer 1

变化

Worksheets("Analyse").Range("C:C").Copy Destination:=Sheets("PTR").Range("B:B")

到

lRow = Worksheets("Analyse").Range("C2").end(xldown).row
Worksheets("Analyse").Range("C2:C" & lRow ).Copy Destination:=Sheets("PTR").Range("B2:B" & lRow)

这将复制到数据的末尾而不是整列，因此您可能需要考虑清除＆＃34; PTR＆＃34; ＆＃34; B2：B＆＃34;在此之前运行

如何在不粘贴表格顶部的情况下将列从工作表导入另一个工作表？

1 个答案: