2022年08月23日
VBA 最終行までの空白セルを選択する
B2セルから最終行までの空白セルを選択するプログラム
Sub SelectBlankCell()
Dim blankCell As Range
Set blankCell = Range("B2", "B" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
blankCell.Select
MsgBox Selection.Count '選択したセル数を確認する
End Sub
Sub SelectBlankCell()
Dim blankCell As Range
Set blankCell = Range("B2", "B" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
blankCell.Select
MsgBox Selection.Count '選択したセル数を確認する
End Sub
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/11557319
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック
