从VBA中的不同工作表中提取值

Question

我有一个包含数百列数据的工作表（wkst1）。我试图从我的工作簿中的另一个工作表（wkst2）中的列中提取一些这些列。

我希望做一个循环，我可以使用DoUntil IsEmpty复制wkst2中我需要的特定列的每一行中的值，并将它们粘贴到wkst1中的所需列中。一个问题是wkst2中的列经常被更新，所以我需要VBA能够拉出整个列（即使稍后添加了行 - 这就是我认为DoUntil IsEmpty函数最好的原因） 。

我在VBA的表现非常弱，但我真的很想学习，所以非常感谢任何帮助。谢谢！

Answer 1

在wkst1中，您可以选择最后一行然后使用 Selection.End(xlUp).Select将您的活动单元格移到列中的最后一行单元格。然后使用Range(Cells(first_row, first_col),Cells(last_row, last_col)).select并复制并粘贴到wstk2中。如果你使用Do while循环则可能需要更多时间。