在相鄰單元格中查找並替換

Question

我需要一個VBA循環，該循環在整個工作表中搜索“ COUNTRY”一詞，每次遇到該單詞時，它將用“ UK”一詞替換右側的單元格+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

注意：-該代碼區分大小寫，並且僅以大寫形式檢查COUNTRY。 如果需要，請相應地進行更改。