セルの部分一致でフィルタ検索をしたい。 | |
---|---|
[195830] セルの部分一致でフィルタ検索をしたい。- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 乾燥植物 -(2023/08/02(09:27)) □U R L/ お世話になっています。 またひとつ ●やりたい事。 シート1のA1に入力されている値(例えば東京)を シート2で検索して抽出したいのです。 ただし、値は「完全一致」ではなく「部分一致」で検索をしたいのです。 (東京都新宿区、東京都品川区、東京都千代田区、と検索がしたい) ●書いたコード Dim A As String A = Worksheets("Sheet1").Range("A1") Worksheets("Sheet2").Range("A1").AutoFilter 1, A ここのAをどのようにしたらいいか、よくわかりません。 Like,*や LookAt:=xlPartを使ってみましたが、どうもうまくいきません。 おそらく単純なんだろうですが、ちょっと頭を抱えています。 どなたアドバイスを頂けないでしょうか。 よろしくお願いいたします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[195831] Re[1]: セルの部分一致でフィルタ検索をしたい。- ■記事引用/メール受信=OFF■ □投稿者/ ねむねむ -(2023/08/02(09:54)) □U R L/ 下記ではどうだろうか? Worksheets("Sheet2").Range("A1").AutoFilter 1, "*" & A & "*" |
[195832] Re[2]: セルの部分一致でフィルタ検索をしたい。- ■ / 記事引用/メール受信=OFF■ □投稿者/ 乾燥植物 -(2023/08/02(10:21)) □U R L/ ねむねむ様 アドバイスありがとうございます。 こんな単純なことだったんですね……。 昨日ずっと頭を悩ませていましたが、助かりました! |
このトピックに書きこむ |
---|