[[20171116121236]]　『特定の文字が入っていないセルを削除するマクロ』（MIMI）　ページの最後に飛ぶ

『特定の文字が入っていないセルを削除するマクロ』（MIMI）

いつも参考にさせていただいています。

エクセルのシートのうち、「月次」あるいは「月商」という文字が含まれていないセルを削除したいのですが、どのようなマクロを使えばよいでしょうか？

教えて頂けると助かります。よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：unknown ＞

本当にセルを削除するのですか？削除の場合、削除後に左に詰めるとか上に詰めるとか指定する必要があるのですが、詰めて良いのですか？詰めないなら、それは削除ではなく、文字を消すだけなので、Range("A1").ClearContents のようにするだけです。そして、文字列が含まれるかどうかは、InStr関数で調べれば良いので、対象セル分ループさせつつ判定、クリアしていくコードを書けば良いですよ。

そして、本当に2つの文字列が含まれないセルは全部消して良いのでしょうか？数字だけ入っているセルとかも消えてしまいますが、そんな事をして何の役にたつのやら、全く判りません。削除前と削除後を、具体的に説明してください。
（???） 2017/11/16(木) 14:32

Sub main()

    Dim sht As Worksheet, c As Range
    For Each sht In ThisWorkbook.Sheets
        If Application.CountA(sht.Cells) > 0 Then
            For Each c In Cells.SpecialCells(xlCellTypeConstants)
                If Not (c.Value Like "*月商*" Or c.Value Like "*月次*") Then c.Value = ""
            Next c
        End If
    Next sht
End Sub

（mm） 2017/11/16(木) 14:37

コメント返信：

[ 一覧(最新更新順) ]

[[20171116121236]] 『特定の文字が入っていないセルを削除するマクロ』（MIMI） ページの最後に飛ぶ

[[20171116121236]]　『特定の文字が入っていないセルを削除するマクロ』（MIMI）　ページの最後に飛ぶ