VBA

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

VBA
スポンサーリンク

車輪の再発名感はある

 検索でちょっとひっかけてもこれだってのがなかったのと、最初は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

コメント

タイトルとURLをコピーしました