Question

我想将列的值从一个工作表复制到另一个已有行的工作表。

我想将工作表“source”中A列中的值添加到工作表“dest”中的X列。但是我想跳过源列的前两行，并且应该在第2000行之后插入值。

例如：

Workbook.Sheets("source").Columns("A3:A").Copy Destination:=nDestSheet.Range("X2001")

但是VBA告诉我类型不匹配。我想我只是在语法方面做错了。

有人可以帮忙吗？

谢谢！

Answer 1

.Columns接受列号或字母，而不是范围。这并不完全重要，因为“A3：A”无论如何都不是有效范围。

你可能想要

With Workbook.Sheets("source")
  .Range(.Range("A3"), .Columns("A").Cells(.UsedRange.Rows(.UsedRange.Rows.Count).Row)).Copy Destination:=nDestSheet.Range("X2001")
End With

Answer 2

如何简单：

Workbook.Sheets("source").Columns("A").Copy Destination:=nDestSheet.Range("X2001")

VBA Excel：复制具有起始位置和目标位置的列

2 个答案: