Excel VBA質問箱 IV

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

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


21166 / 76732 ←次へ | 前へ→

【60968】Re:全文検索と該当セルの取り込みについて
発言  kanabun  - 09/3/28(土) 11:34 -

引用なし
パスワード
   ▼カンジ さん:

すでに Like演算子で解決済みのようですが、
複数セルを抽出するなら オートフィルタを使ってもよいかと思います。

  Dim GOOD As String
  Dim c As Range   'コピー先セル
  
  With Sheets("GOOD情報") 'ここに検索したセルを集める
    GOOD = .Range("F1").Value 'F1は家族など
    Set c = .Range("B1000").End(xlUp).Offset(1) 'コピー先
  End With
  With Sheets("元データ")
    .FilterMode = False
    With .Range("A1").CurrentRegion '検索対象のシート
      .AutoFilter 2, "*" & GOOD & "*"  'GOOD を含む文字列の行を抽出
      If WorksheetFunction.Subtotal(3, .Columns(2)) > 1 Then
        Intersect(.Columns("C:D"), .Offset(1)).Copy Destination:=c
      End If
      .AutoFilter
    End With
  End With

0 hits

【60964】全文検索と該当セルの取り込みについて カンジ 09/3/27(金) 21:57 発言
【60965】Re:全文検索と該当セルの取り込みについて neptune 09/3/27(金) 22:19 発言
【60967】Re:全文検索と該当セルの取り込みについて カンジ 09/3/28(土) 0:37 お礼
【60968】Re:全文検索と該当セルの取り込みについて kanabun 09/3/28(土) 11:34 発言
【60969】Re:全文検索と該当セルの取り込みについて カンジ 09/3/28(土) 18:56 お礼

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