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

我有一個包含列和多個工作表的Excel工作表。我想將Sheet1的列A複製到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")

來源

2012-06-09 Chel

提示：代碼存在的問題在於「ActiveCell」。作爲一種很好的編程習慣，儘量避免在宏中使用ActiveCell，ActiveSheet。它們可能會讓大宏頭疼。如果您需要，只需在使用這些對象之前激活相關單元。 – tumchaaditya

這是你想什麼呢？

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

來源

2012-06-09 04:00:57

'這是你正在嘗試'我認爲如此:) – JimmyPena

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

回答

相關問題