Replace(Cells(1, 1).address(False, False), "1", "")

Step1. 获取Cell所在的列（英文字母）和行
Cells(1, 1).address(False, False) -> A1
Cells(1, 1).Address(True, True) -> $A$1
Cells(1, 1).Address(True, False) -> A$1
Cells(1, 1).Address(False, True) -> $A1

Step2. 把行号替换成空