空白でないセルをすべて選択

目次

コード


Dim rngList As Range
Set rngList = Range(Range("F5"), Cells(Rows().Count, 6).End(xlUp))
Debug.Print rngList.Address
Set rngList = Union(rngList.SpecialCells(xlCellTypeConstants), rngList.SpecialCells(xlCellTypeFormulas))
Debug.Print rngList.Address

解説

【説明】
F列（F5セル以降）で数式や値が設定されている項目を選択してRangeオブジェクトに代入する
「定数」と「数式」の両方を取得するため、「Union」でセル範囲を結合している。
「定数」のみ指定する場合は、5行目は
Set rngList = rngList.SpecialCells(xlCellTypeConstants)
でよい。