将Excel中列数转为列号
2009-10-17 21:56 Format Deng 阅读(520) 评论(0) 编辑 收藏 举报一段将Excel中列数转为列号的VBA代码
1
Function NumToChar_26(Num As Double) As String
2
'--===Writen By FormatD
3
'将Excel中列数转为列号
4
Dim iMod As Integer, dInt As Double, sChar As String
5
'Application.Volatile
6
iMod = Num Mod 26
7
dInt = Num \ 26
8
If iMod > 0 Then
9
sChar = Split(Columns(iMod).Address(0, 0), ":")(0)
10
ElseIf dInt > 0 Then
11
dInt = dInt - 1
12
sChar = "Z"
13
End If
14
Do While dInt > 0
15
iMod = dInt Mod 26
16
dInt = dInt \ 26
17
If iMod > 0 Then
18
sChar = Split(Columns(iMod).Address(0, 0), ":")(0) & sChar
19
ElseIf dInt > 0 Then
20
dInt = dInt - 1
21
sChar = "Z" & sChar
22
End If
23
Loop
24
NumToChar_26 = sChar
25
End Function
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)