空でないセルを選択するExcel VBAコード

Question

Excelでは、B2からB7およびC2からC7にデータがあるとします。 VBAでは、マクロを選択して選択できます。

Sub Macro1()
Range("B2:C7").Select
End Sub

空でないセルを自動的に選択するようにコードを書き直すにはどうすればよいですか？セルB7とC7のデータを削除する場合、マクロでRange（B2：C6）のみを選択し、セルB8とC8に​​データを追加する場合、マクロでRange（B2：C8）を選択します。

私のデータは常にB2、C2で始まり、データ間に空きスペースがありません。

Answer 1

Selectionオブジェクトの「SpecialCells」関数を使用する

Sub Macro1()
    Range("B2:C7").Select
    For Each self in Selection.SpecialCells(xlCellTypeConstants)
        Debug.Print(self)
    Next
End Sub