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

Question

我有一个包含列和多个工作表的 Excel 工作表。我想将 A 列从 Sheet1 复制到 Sheet2。然后，一旦我复制了 A 列，我希望 Sheet2 中的 B 列在 A 中的每个填充单元格附近有一个特定的值（在本例中为“D”）。我只被下面的代码所困扰。

例子：

Sheet1 包含：

Column A      B      C
       Arthur 1      34
       Bertha 2      35

Sheet2 必须具有：

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