Vba 如何按单元格值复制列

我正在寻找通过Excel中的单元格值将列从一个工作表复制到另一个工作表的最有效方法。我有下表：

我想复制此表中的“海湾/海洋”和“小溪”列：

表1和表2中的“StationID”应匹配

---

谢谢大家!

@BruceWayne已经为您提供了答案

• 活页2
• 在单元格B2中，输入

=VLOOKUP（$A2，Sheet1！$A$1:$C$7，Column（），FALSE）

• 按“回车”
• 复制单元B2
• 将其粘贴到B2:C11中

---

表1中的键（StationID）是否唯一？一个键可以出现多次吗？请举例说明您的结果。一个

vlookup

应该可以。在Sheet2，B2中，放入

=VLOOKUP（$A2，Sheet1！$A$1:$C$7，Column（），FALSE）

。注意：如果您只有

A1

一次，并且值相同，则此选项将起作用。如果您有更多，并且需要向查找中添加更多变量，我将开始查看

Index/Match

。但是，正如Ulli所说，如果您能提供更多的示例数据，这会有所帮助。@Ulli，键（StationID）在工作表1中是唯一的，但在工作表2中不止一次出现。我希望看到B列和C列中的值与a列中的键对应的结果。我将在上面的表2中填写所需的结果。谢谢你们两位@BruceWayne，有没有办法在vlookup或Index/Match中编写一个函数，命令它查找Sheet1中a列中的值，如果它们与Sheet2中a列中的值匹配，则将同一行中的值从Sheet1复制并粘贴到Sheet2？当然！只需在其周围包装一条

If（）

语句。但我不知道你的意思，你能举个例子吗？目前，在Sheet2中，如果它在Sheet1列a中找到与S1匹配的

S1

，它将返回B和C的值。哇，这太棒了！谢谢你，布鲁斯韦恩