Excel 在相邻单元中查找并替换

我需要一个VBA循环，它在整个工作表中搜索，比如说，单词“COUNTRY”，每次遇到它时，它都会用单词“UK”替换右边的单元格+1

请放心，这是必要的，不能用一列公式来完成，因为单词COUNTRY在工作表中以不规则的方式大量散布

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

这是您的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

---

注意：-代码区分大小写，仅检查大写的国家/地区。如果需要，请相应地修改它。

堆栈溢出不是“代码为我”服务。除非您的代码不起作用，并且需要帮助克服代码中的特定问题，否则这个问题对于本网站来说太广泛了。