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

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 

注： - 代碼是區分大小寫，檢查全國只有大寫。根據需要改變它。