Sub COUNTBLANKを使う_空白のセルを数える() 空白セルの数 = WorksheetFunction.CountBlank(Range("A2:A6")) MsgBox 空白セルの数 End Sub