Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2507 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【67645】ワイルドカードについて Yoshim 10/12/20(月) 22:28 質問[未読]
【67646】Re:ワイルドカードについて かみちゃん 10/12/20(月) 22:37 発言[未読]
【67645】ワイルドカードについて
質問  Yoshim  - 10/12/20(月) 22:28 -
引用なし
パスワード
   a10,b20,c30がシート１のA１〜下に
aaba10aa,bbb20,k30がシート２の１〜下に

並んでいるとします。
Like "*" & ____& "*"
で検索させたのですが検索できません。

コードの間違い箇所があればアドバイスお願いします。
Sub test()
　Dim i As Integer
　Dim k As Integer
　Dim Lst1, Lst2
　
　Lst1 = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
　Lst2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
With Sheets(1)
　For i = 1 To Lst1
　　 For k = 1 To Lst2
　　　 If .Cells(i, 1).Value Like "*" & Sheets(2).Cells(k, 1).Value & "*" Then
　　　　　　MsgBox .Cells(i, 1).Value
　　　End If
　　 Next k
　Next i
End With
End Su
【67646】Re:ワイルドカードについて
発言  かみちゃん E-MAIL  - 10/12/20(月) 22:37 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>Like "*" & ____& "*"
>で検索させたのですが検索できません。

期待している結果が、何であればいいのかよくわかりませんが、もしかして、

　　　 If .Cells(i, 1).Value Like "*" & Sheets(2).Cells(k, 1).Value & "*" Then

を

　　　 If Sheets(2).Cells(k, 1).Value Like "*" & .Cells(i, 1).Value & "*" Then

の処理にしたいということでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2507 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free