Excel VBA質問箱 IV

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

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


8255 / 13646 ツリー ←次へ | 前へ→

【34158】【至急】部分一致の検索削除 初心者2 06/1/27(金) 14:42 質問[未読]
【34161】Re:【至急】部分一致の検索削除 やっちん 06/1/27(金) 15:00 発言[未読]
【34390】Re:【至急】部分一致の検索削除 初心者2 06/2/1(水) 20:40 お礼[未読]
【34394】Re:【至急】部分一致の検索削除 やっちん 06/2/1(水) 21:18 発言[未読]

【34158】【至急】部分一致の検索削除
質問  初心者2 E-MAIL  - 06/1/27(金) 14:42 -

引用なし
パスワード
   大至急教えていただけると助かります。
以下のように書くと、完全一致のデータのみ
削除されますが、部分的に一致する場合も
削除したいと思います。
どのように書いたらいいでしょうか?

よろしくお願いします。


Sheets("Sheet2").Select
  Cells.Select
  Selection.Copy
  Sheets("Sheet1").Select
  Cells.Select
  ActiveSheet.Paste
  検索データ = "epmap"
  ActiveSheet.Range("A" & Rows.Count).End(xlUp).Select
  LastRowNo = ActiveCell.Row
  For I = 1 To LastRowNo
    For J = 1 To 256
      If Cells(I, J).Value = 検索データ Then
        MsgBox 検索データ & "を" & I & "行" & J & "列で検出しました" _
            & vbCrLf & I & "行を削除します"
        Range(I & ":" & I).Select
        Selection.Delete
        I = I - 1
        J = 256
      End If
    Next J
  Next I
  MsgBox "検索削除処理が終了しました"
  Cells.Select
  Selection.Delete

【34161】Re:【至急】部分一致の検索削除
発言  やっちん  - 06/1/27(金) 15:00 -

引用なし
パスワード
   ▼初心者2 さん:
こんにちは。
InStrをヘルプで調べてみてください。

【34390】Re:【至急】部分一致の検索削除
お礼  初心者2 E-MAIL  - 06/2/1(水) 20:40 -

引用なし
パスワード
   ▼やっちん さん:
御礼が遅れまして申し訳ありませんでした。
ヘルプで調べてみましたが、なかなか理解できず
苦戦しています。
またよろしくお願いいたします。

【34394】Re:【至急】部分一致の検索削除
発言  やっちん  - 06/2/1(水) 21:18 -

引用なし
パスワード
   ▼初心者2 さん:
Instrが何をするものかわからなかったのでしょうか?
それとも使い方がわからなかったのでしょうか?

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