隣接セルでの検索と置換

Question

たとえば、単語 "COUNTRY"のためにワークシート全体を検索するVBAループが必要であり、そのたびにセル+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 

注： - コードのみが大文字で大文字と小文字を区別し、チェックの国です。必要に応じてそれを変更してください。