Excel VBA質問箱 IV

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

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


2506 / 13645 ツリー ←次へ | 前へ→

【67645】ワイルドカードについて Yoshim 10/12/20(月) 22:28 質問[未読]
【67646】Re:ワイルドカードについて かみちゃん 10/12/20(月) 22:37 発言[未読]

【67645】ワイルドカードについて
質問  Yoshim  - 10/12/20(月) 22:28 -

引用なし
パスワード
   a10,b20,c30がシート1のA1〜下に
aaba10aa,bbb20,k30がシート2の1〜下に

並んでいるとします。
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

の処理にしたいということでしょうか?

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