1分で分かるVBAコード解説

エクセルのシートG列に12以上の数字のセルがあった場合、そのセルの値を削除するコード

Sub JyuryouSakujo() #「JyuryouSakujo」というサブプロシージャ名

Dim lastRow As Long #「lastRow」というロング型の変数
Dim r As Long #「r」というロング型の変数
Dim rowCount As Long #「rowCount」というロング型の変数
Dim Cstrnum As Integer #「Cstrnum」という整数型の変数
 
 lastRow = Range("G" & Rows.Count).End(xlUp).Row #「lastRow」にG列の最終行数を代入
 
For r = 1 To lastRow #1から開始して「lastRow」の数字まで繰り返す。
     Cstrnum = Range("G" & (r)) #「Cstrnum」にG列の「r」の行数のセルの値を代入
   If Cstrnum > 11 Then #「Cstrnum」が12以上の場合「End If」までの処理を実行
     Range("G" & (r)).EntireRow.Delete #G列の「r」の数字のセルの値を削除
     r = r - 1 #「r」に代入されている数字から1引き算する
   Else
   End If
Next

End Sub