参考元：【VBA】Rangeで取得したセル範囲からアドレスを取得【Addressを使う】
https://daitaideit.com/vba-range-address/
ポイントとなるVBAコード
'アドレスを取得
Debug.Print Cells(1, 1).Address '$A$1
Debug.Print Cells(1, 1).Address(True, True) '$A$1
Debug.Print Cells(1, 1).Address(False, False) 'A1
Debug.Print Cells(1, 1).Address(True, False) 'A$1
Debug.Print Cells(1, 1).Address(False, True) '$A1
Debug.Print Range(Cells(1, 1), Cells(3, 3)).Address(False, False) 'A1:C3
