【EXCEL VBA】セルの行が変わった場合でも対応が出来るように、ある値の入ってるセルの行を取得し、その値を使用して処理を行いたい

エクセルファイルを編集し、セルの行を挿入や削除した場合でも、処理が行えるようにしたいです。
列は変わらない前提です。

testと入力されているセルを探し、その行を取得して、それを以下の様な処理に使用したいです。
testという値は、C10セルに入っていると仮定し、シート内に同じ文字がない事を前提とします。

シートから値を探し、その行を取得して、変数に代入する方法を以下の処理に追加したいのですが、どのようにしたらいいのか分かりません。

ご存知の方がおりましたら教えて頂けますでしょうか。

VBA
1
2Sub sample()
3
4Dim j As Variant
5
6'●に取得した行数を代入
7j = ●
8Range(Cells(j,5),Cells(j,10)) = 3
9Range(Cells(j + 1, 8),Cells(j + 1, 13)) =  7
10
11End Sub
12

coco_bauer

2018/09/05 07:42

何が問題なのですか？　困っている事、判らない事を具体的に書かないと、回答が来にくいと思いますよ。

ExcelVBAer

2018/09/05 08:03

「セルの行が変わった場合」とはどういう状態ですか？たまたまデータの位置が変わるのと、セットしているデータの途中の行が増えるのでは意味が違います。

退会済みユーザー

2018/09/05 08:39

言葉足らずで申し訳ありません。質問内容を修正させて頂きました。

行動規範の内容に同意します

回答2件

ベストアンサー

Findを使うとシート内を検索することができます。

VBA
1Dim rng As Range
2Set rng = Cells.Find(What:="test", LookIn:=xlValues, LookAt:=xlWhole)
3If Not rng Is Nothing Then
4    Debug.Print rng.Row & "行目"
5Else
6    Debug.Print "見つからない"
7End If
8