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. 把行号替换成空
转载于:https://blog.51cto.com/13685327/2105225