Excel VBA質問箱 IV

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

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


47529 / 76732 ←次へ | 前へ→

【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

0 hits

【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 発言

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