Excel VBA質問箱 IV

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

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


14578 / 76734 ←次へ | 前へ→

【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

1 hits

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

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