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

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

【25465】Findをループして、データを取得したのですが さくたん 05/6/1(水) 16:09 発言
【25467】Re:Findをループして、データを取得したの... つん 05/6/1(水) 16:25 回答
【25494】Re:Findをループして、データを取得したの... Jaka 05/6/2(木) 11:16 回答
【25496】Re:Findをループして、データを取得したの... さくたん 05/6/2(木) 11:49 お礼

56032 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free