Excel VBA質問箱 IV

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

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


41943 / 76732 ←次へ | 前へ→

【39863】Re:条件抽出
回答  Kein  - 06/7/3(月) 13:20 -

引用なし
パスワード
   イミディエイト・ウィンドウに出力するとして・・

Sub Test_Find()
  Dim FR As Range, C As Range

  For Each C In Range("A1", Range("A65536").End(xlUp))
   Set FR = Range("B:E").Find(C.Value, , xlValues, xlWhole)
   If FR Is Nothing Then
     Debug.Print C.Value
   Else
     Set FR = Nothing
   End If
  Next
  With Application.VBE.MainWindow
   .Visible = True
   .SetFocus
  End With
  SendKeys "^(g)", True
End Sub
0 hits

【39847】条件抽出 nene 06/7/3(月) 2:11 質問
【39848】Re:条件抽出 kobasan 06/7/3(月) 7:21 発言
【39863】Re:条件抽出 Kein 06/7/3(月) 13:20 回答
【39898】Re:条件抽出 nene 06/7/3(月) 23:43 お礼
【39897】Re:条件抽出 nene 06/7/3(月) 23:35 発言

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