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. 把行号替换成空