[[20200526125010]]　『セルの値により』（おぎも）　ページの最後に飛ぶ

『セルの値により』（おぎも）

お世話になっております。

エクセルマクロ VBAに関する質問をさせていただきます。
よろしくお願いします。

A列に-40から200までの数字が入っています。
A列の値によって以下の処理を行いたいのですがお力をお貸しいただけないでしょうか。

条件１．-20未満または100以上の場合は行ごと削除する
条件２．1の位が0もしくは5以外は行ごと削除
条件３．空欄の場合は行ごと削除
条件４．-20から100までの場合、B列の同じ行に●をつける

【例】

 　A列　
1　-21　→　条件１のため行とごと削除
2　11　 →　条件２のため行ごと削除
3　　　 →　条件３のため行ごと削除
4　20　 →　条件４のためB列に●をつける
5　101　→　条件１のため行とごと削除

関数であれば自力でも可能なのですが、同様のファイルが1000施設分ありましてひとつひとつ処理するのが困難です。
フォルダ内のファイルを開いて閉じるをループさせるマクロはわかりましたので、上記処理部分を教えていただけましたら幸いです。

何卒よろしくお願いいたします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

書いてみました。
参考にどうぞ。

 Sub sample()
     Dim ws As Worksheet, cel As Range, isDelete As Boolean, deleteRange As Range
         For Each ws In ActiveWorkbook.Worksheets
             For Each cel In ws.Range("A1", ws.Cells(Rows.Count, "A").End(xlUp))
                 isDelete = False
                 Select Case cel.Value
                 Case ""
                     isDelete = True
                 Case -20 To 100
                     If cel.Value Mod 5 <> 0 Then isDelete = True
                 End Select
                 Select Case isDelete
                 Case True
                     cel.Offset(0, 1).Value = "●"
                 Case False
                     If deleteRange Is Nothing Then
                         Set deleteRange = cel
                     Else
                         Set deleteRange = Union(deleteRange, cel)
                     End If
                 End Select
             Next cel
             If Not deleteRange Is Nothing Then
                 deleteRange.EntireRow.Delete
             End If
         Next ws
 End Sub

（tkit） 2020/05/26(火) 13:52

tkit さん

お礼が遅くなり申し訳ございません。

作成いただいものを参考に無事やりたいことが実現できました。

どうもありがとうございました！
（おぎも） 2020/05/27(水) 12:10

コメント返信：

[ 一覧(最新更新順) ]

[[20200526125010]] 『セルの値により』（おぎも） ページの最後に飛ぶ

[[20200526125010]]　『セルの値により』（おぎも）　ページの最後に飛ぶ