1、将字母表示的列转为数字的方法:假设列标为x，则相应的数字表示的列column值应该为：range(x &1).column
4、原理：首先利用cells().address返回单元格的地址，得到的地址是$R$1这种文本格式，然后在得到的单元格地址内找出第二个$符号开始的位置，即Application.WorksheetFunction.Find("$", Cells(1, 18).Address, 2)，这个值减去2，则是字元格中字母的长度。最后，用vba.mid()函数将字母取出来。
5、另外，可以使用substitute()函数来操作，这种方法比较巧妙，比如第V列的公式为：= Application.Substitute(Address(1, v, 4), 1, "")
6、如果网友们有更好，更简便的办法，请告诉我。非常感谢。
