宏：如果在列B中找到特定字符串，则用新字符串替换列A.

Question

在B栏中，我想搜索＆＃34; hmc＆＃34;然后用字符串＆＃34; Found＆＃34;。

替换A列中相应的单元格

我尝试使用宏录制器过滤B列＆＃34; hmc＆＃34;，这可以完成。但我需要转到A列并用字符串＆＃34; Found＆＃34;替换相应的单元格。

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

至于其余代码，您需要将Sheetname更改为您的，还可能更改数据所在的范围。此代码假定它从A1开始。