如何搜索一列并返回下一列中具有特定值的值

Question

我有一个包含列和多个工作表的Excel工作表。我想将 A 列从工作表 1 复制到工作表 2。然后，一旦我复制了 A 列，我希望 Sheet2 中的 B 列在 A 中的每个填充单元格旁边有一个特定的值（在本例中为"D"）。我只坚持下面的代码。

例：

表1包含：

Column A      B      C
       Arthur 1      34
       Bertha 2      35

工作表 2 必须具有：

Column A      B
       Arthur "D"
       Bertha "D"

卡在代码上：

Worksheets("Sheet1").Columns("A").Copy ActiveCell.Columns("A:A").Columns("A")

Answer 1

这是你正在尝试的吗？

Option Explicit
Sub Sample()
    Dim wsI As Worksheet, wsO As Worksheet
    Dim lRow As Long
    Set wsI = Sheets("Sheet1")
    Set wsO = Sheets("Sheet2")
    wsI.Columns(1).Copy wsO.Columns(1)
    lRow = wsO.Range("A" & wsO.Rows.Count).End(xlUp).Row
    wsO.Range("B1:B" & lRow).Value = "D"
End Sub