2021年11月02日
VBA 最終行までの空白セル数を取得する
B2セルから最終行までの空白セル数を取得するプログラム
Sub GetBlankCells()
Dim blancCellCount As Integer
blankCellCount = WorksheetFunction.CountBlank(Range("B2", "B" & Cells(Rows.Count, 2).End(xlUp).Row))
MsgBox blankCellCount
End Sub
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/11071744
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック