Range("A1").End(xlToRight).Address这个可以得到从A1单元格起，向右最后一个非空单元格的行列引用然后转换为列号就简单了
前26列的列标用公式很容易得到，之后的列标可用VBA代码试试。
