Sub 関数COUNTAを使う_入力済セルを数える() 入力済セルの数 = WorksheetFunction.CountA(Range("A1:B3")) MsgBox 入力済セルの数 End Sub