在相邻的单元格中查找并替换

Question

我需要一个VBA循环，在整个工作表中搜索单词“COUNTRY”，每遇到一次，它就会将单元格+1替换为右侧的单词“英国”。

请放心，这是必须的，不能用一列公式来完成，因为COUNTRY这个词很多次地以不规则的方式分散在工作表中。

我真的想从一些代码开始，但我找不到这样做的方式。提前致谢！

Answer 1

这是您的VBA代码，

Sub funcOffset() 
Dim i As Long, j As Long 
For j = 1 To 255 
For i = 1 To Cells(Rows.Count, j).End(xlUp).Row 
    If Cells(i, j) = "COUNTRY" Or InStr(Cells(i, j), "COUNTRY") > 0 Then 
     Cells(i, j + 1) = "UK" 
    End If 
Next i 
Next j 
End Sub 

注： - 代码是区分大小写，检查全国只有大写。根据需要改变它。