- 博客(2)
- 收藏
- 关注
RSS订阅转载 vba将列名的字母转为数字
'transfer column from "A" to 1, from "Z" to 26 ......Private Function ColumnNum(ByVal a) As Long Dim r r = 0 If VarType(a) = vbString And Len(a) > 0 Then a = UCase(a) r = A
2016-03-06 12:54:17
2777
转载 VBA中将数字列转换成字母的方法
传入参数为Excel中列的序号。例如：传入1返回A，传入2返回B。Public Function Fun_GetEngName(ByVal argColumn As Integer) As String Dim strEngName As String Dim iNum, iMod As Integer iNum = argColumn \ 26 iMod = arg
2016-03-06 12:51:32
5011
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人