エクセルのシートに検索をかけ、見つけたセルの隣のセルの値を変更する

車輪の再発名感はある
- やりたいこと
- コード

車輪の再発名感はある

　検索でちょっとひっかけてもこれだってのがなかったのと、最初はfindを使おうかと思ったがどうやら使い勝手がよくないとのことで、自作することにした。何かある気はするのだが…

やりたいこと

　タイトルの通り。ただし、隣とは限らず離れたところや右とは限らず、左にも対応できるようにする。

コード

　
Sub test2()

Dim i, j, k
Dim RowsCount
Dim SearchWord, SearchColumn, ShiftX, ShiftY, ChangeWord, ChangeWordB

RowsCount = 750 '検索する行数


SearchColumn = 2 '検索列
SearchWord = 519 '検索ワード
ShiftX = 1 '検出した場所からのシフト(X方向)
ShiftY = 0 '検出した場所からのシフト(Y方向)まず使わない不要
ChangeWord = 600 '検出した場所からのシフトを加えた個所の値を変更する内容

For j = 1 To RowsCount
    If Cells(j, SearchColumn) = SearchWord Then
        Cells(j + ShiftY, SearchColumn + ShiftX) = ChangeWord
    End If
Next j

End Sub

VBScript
​x
 
　
Sub test2()
​
Dim i, j, k
Dim RowsCount
Dim SearchWord, SearchColumn, ShiftX, ShiftY, ChangeWord, ChangeWordB
​
RowsCount = 750 '検索する行数
​
​
SearchColumn = 2 '検索列
SearchWord = 519 '検索ワード
ShiftX = 1 '検出した場所からのシフト(X方向)
ShiftY = 0 '検出した場所からのシフト(Y方向)まず使わない不要
ChangeWord = 600 '検出した場所からのシフトを加えた個所の値を変更する内容
​
For j = 1 To RowsCount
    If Cells(j, SearchColumn) = SearchWord Then
        Cells(j + ShiftY, SearchColumn + ShiftX) = ChangeWord
    End If
Next j
​
End Sub
​