出自这里

数字转列标： Split(Cells(1,1).Address(1,0),"$")(0)    ‘将1-256替换红色的1就可以

Cells(1, a) 选中对应的第一行第A列的一个单元格；

Address的返回值为该单元格的绝对地址 ，如$A$1，即A列1行；

　　它有4个参数，咱们直说前俩，第一个为行的绝对路径，默认为true，第二个为列的绝对路径默认为false

　　a: Cells(1, 1).Address() "$A$1"

　　b: Cells(1, 1).Address(1, 0)  "A$1"

　　c: Cells(1, 1).Address(0, 1)  "$A1"

Split， "$"为[A, 1](0)为A。

列标转数字就更简单：Range( "IV" & 1).Column    ‘将列标字母A-IV替换红色的IV就可以

　　IV1单元格的列数。。。。

VBA excel中表示列的字母换成数字