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

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

1 个答案: