宏：如果在列B中找到特定的字符串，則用新的字符串替換列A

Question

在B列中，我想搜索「hmc」，然後用字符串「Found」替換列A中對應的單元格。

我試圖使用宏記錄器來過濾「hmc」列B，這可以完成。但我需要轉到A列，並用字符串「Found」替換相應的單元格。

Col A Col B 
Accept hmc 
123  hmc 
Accept xcc 
Accept xcc 
123  hmc 
Accept hmc 

將被改寫爲：

Col A Col B 
Found hmc 
Found hmc 
Accept xcc 
Accept xcc 
Found hmc 
Found hmc 

Answer 1

檢查這個答案：StackOverflow - almost same question

你只需要改變這一部分：

If Application.WorksheetFunction.CountIf(.Range("B1:B" & b_lastrow), .Range("A" & r).Value) > 0 Then 
    .Range("A" & r).Value = "newData" 
End If 

到：

If .Range("B" & r).Value = "hmc" Then 
    .Range("A" & r).Value = "found" 
End If 

至於其餘的代碼，您需要將工作表名稱更改爲您的，並且可能還需要將數據範圍更改爲您的數據。該代碼假定它以A1開頭。