任意のセルを含む列全体を取得する

Option Explicit
Sub A_Sample035()
Dim myRng1 As Range
Dim myRng2 As Range
Set myRng1 = Range(“C4”)    ‘任意のセル
‘準備ここまで
Set myRng2 = myRng1.EntireColumn
MsgBox myRng2.Address
Set myRng1 = Nothing                ‘オブジェクトの解放
Set myRng2 = Nothing
End Sub