Step1. 获取Cell所在的列（英文字母）和行Cells(1, 1).address(False, False) -> A1Cells(1, 1).Address(True, True) -> $A$1Cells(1, 1).Address(True, False) -> A$1Cells(1, 1).Address(False, True) -> $A1
Step2. 把行号替换成空
VBA 列号转换成列英文字母
原文：http://blog.51cto.com/13685327/2105225
