Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56032 / 76732

←次へ　｜　前へ→


	【25465】Findをループして、データを取得したのですが

さくたん - 05/6/1(水) 16:09 -


	引用なし

	パスワード

いつもお世話になっています。
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

以上です。よろしくお願いいたします。

1 hits

▼

【25465】Findをループして、データを取得したのですが さくたん 05/6/1(水) 16:09

≪