|
いつもお世話になっています。
LOGからエクセルに変換したファイルのデータを検索するマクロを
作っています。
下記のように、マクロを組みました。
しかし、探すセルの中にデータが入っていない部分があり、
Set T1の部分がエラーになります。
どのように回避したらいいでしょうか?
ご教授ください。よろしくお願いいたします。
'●データが入力されている最終セル位置を取得●
Set myRng = Columns(1).Find(What:="*", After:=Range("A1"), _
LookIn:=xlFormulas, SearchDirection:=xlPrevious)
myR = myRng.Row
myC = myRng.Column
'●テスト項目[(C…)]の個数を取得●
Set Rng = Range("A1", myRng)
myCnt = WorksheetFunction.CountIf(Rng, "=*(C*")
'●テスト項目[(C…から始まる]を取得●
Set TEST = Rows(1).Find(What:="(C", After:=Range("A1"), _
LookIn:=xlFormulas, SearchDirection:=xlNext)
TT_V = TEST.Value
TT_R = TEST.Row
TT_C = TEST.Column
For X = 1 To myCnt
For Y = TT_R To myR
Set T1 = Rows(1).Find(What:="(C", After:=Cells(Y, 1), _
LookIn:=xlFormulas, SearchDirection:=xlNext)
If Cells(Y, 1) Is Nothing Then
Exit Sub
End If
TTV = T1.Value
TTR = T1.Row
TTC = T1.Column
TestItem(i) = TTV & "_" & Cells(TTR, TTC + 1).Value
Next Y
Next X
以上です。よろしくお願いいたします。
|
|