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

我有一个Excel工作表，其中包含列和多个工作表。 我想从Sheet1复制列A到Sheet2。 然后，一旦我复制列A，我想从Sheet2列B有一个特定的值（在这种情况下，“D”）在A中每个填充的单元格相邻。我只是坚持下面的代码。

例：

Sheet1包含：

Column ABC Arthur 1 34 Bertha 2 35 

Sheet2必须具有：

 Column AB 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