如何能将数字4变为D？求大佬指点？

开开惢惢

通过循环获得列的最大标如12，如何能将12转换为对应的列字母L？
需要如何表述？求指点。谢谢

ＥＸＣＥＬ小子

split(cells(1,i).address,"$")(1)

smiletwo

Sub 数值转字母()
   Dim i, col, zm
   col = Cells(1, Columns.Count).End(xlToLeft).Column
   zm = Mid(Cells(1, col).Address, 2, Len(Cells(1, col).Address) - 3)
   Debug.Print zm
End Sub

smiletwo

求出最大列号 col（如12）, 用cells(1，col).address =$L$1, 然后用mid(cells(1，col).address函数去除两端，就可的到L

smiletwo

ＥＸＣＥＬ小子 发表于 2020-9-14 20:37
split(cells(1,i).address,"$")(1)

     牛牪犇

cui26896

超过26列时，
if i>26 then  s=Mid(cells(1, i).address, 2, 2)
  

liuxi001

1. '列序号_字母转换
   
2. Function abc2num(Number As Variant) As Variant
   
3.     Dim intI As Integer, dblNum As Double
   
4.     Dim strChar As String, intPos As Integer
   
5.     Const conStrList = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   
6.     If IsNumeric(Number) Then
   
7.         dblNum = Number
   
8.         Do Until dblNum = 0
   
9.             abc2num = abc2num & Mid(conStrList, IIf(((dblNum - 1) + 1) Mod 26 = 0, 26, ((dblNum - 1) + 1) Mod 26), 1)
   
10.             dblNum = (dblNum - 1) \ 26
    
11.         Loop
    
12.         abc2num = StrReverse(abc2num)
    
13.     Else
    
14.         For intI = Len(Number) To 1 Step -1
    
15.             strChar = Mid(Number, intI, 1)
    
16.             intPos = InStr(conStrList, UCase(strChar))
    
17.             abc2num = abc2num + intPos * 26 ^ (Len(Number) - intI)
    
18.         Next
    
19.     End If
    
20.     If abc2num = 0 Or abc2num = "" Then abc2num = "#VALUE"
    
21. End Function

复制代码

admin3354

如果取值只是在A-Z之间
来个简单粗暴的方法  

i=12
CHR(i+64)