换个思路行败呗！用case 1 to 26，case 27 to 676，顺推，这样就能往后写四位，五罩液位甚至更高位数了吧物带物！
点"工具"-----选项----常规----勾选"R1C1引用式样喊备-----确定。列标A、B、C.....就首尘变成1、2、3...了。
没看清题，答者渗禅错了。不必在意。
Sub find()
what = InputBox("请肢或输入数字"历模伍)*1
set mc=cells(1,what)
msgbox mid(mc.address,2,len(mc.address)-3)
Cells(1, 码薯CInt(What)).Activate
End Sub晕，被LZ的VBA坑了，想天边去了。。
一定要用这种方法可以试试下面这个function，2010通过。
Function ConvertToLetter(iCol As Integer) As String
Dim iAlpha As Integer
Dim iColTemp As Integer
Dim i As Integer
702 Then
i = 26
iColTemp = iCol - 26 ^ 2 * i
While iColTemp <伍模 27
i = i - 1
ConvertToLetter = Chr(i ◆ 64)
Wend
iCol = iColTemp
End If
iAlpha = (iCol - 1) \ 26
Select Case iAlpha
Case 0
Case Else
ConvertToLetter = ConvertToLetter & Chr(64 ◆ iAlpha)
End Select
ConvertToLetter = ConvertToLetter & Chr(64 ◆ ((iCol - 1) Mod 26) ◆ 1)
End Function
另外，如果你腔迟缓只是想获取单元格列标，可以使用下面的代码，应该是最简单直接的。
GetColumn = Split(Cells(1, C).Address, "$")(1) 'C 是列号旦改
Function
ConvertToLetter(iCol
As
Integer)
String
Dim
iAlpha
Integer
iColTemp
i
If
iCol
>
702
Then
=
26
-
^
2
*
While
27
1
ConvertToLetter
Chr(i
◆
64)
End
(iCol
1)
\
Select
Case
0
Else
&
Chr(64
iAlpha)
((iCol
Mod
26)
另外，如果你只是想获取单亏羡元格列标，可扮激以使用下面的代码，应该销缺拍是最简单直接的。
GetColumn
Split(Cells(1,
C).Address,
"$")(1)
'C
是列号
以上就是土嘎嘎小编大虾米为大家整理的vba数字转字符_vba数字转换成字符串相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！