单元格列数字转换为英文或者提取单元格列（英文）

看飞鸟的金鱼

比如单元格：range("ab3")

DevilW

Split(Cells(1, 12).Address, "$")(1)
Split(Range("ac3").Address, "$")(1)

看飞鸟的金鱼

DevilW 发表于 2024-10-8 10:38
Split(Cells(1, 12).Address, "$")(1)
Split(Range("ac3").Address, "$")(1)

感谢老师的回复，祝你一切顺利！

yynrzwh

Sub 数字列号转字母()

n = 2147483647 'FXSHRXW
Do While n > 0
    a = ((n - 1) Mod 26) + 1
    s = Chr(a + 64) & s
    n = (n - a) / 26
Loop

MsgBox s
End Sub
Sub 字母转数字列号()

s = "FXSHRXW" '2147483647
t = 0
For i = Len(s) To 1 Step -1
    n = n + (Asc(Mid(s, i, 1)) - 64) * 26 ^ t
    t = t + 1
Next

MsgBox n
End Sub

看飞鸟的金鱼

yynrzwh 发表于 2024-10-8 11:26
Sub 数字列号转字母()

n = 2147483647 'FXSHRXW

感谢老师回复，祝顺利！

看飞鸟的金鱼

DevilW 发表于 2024-10-8 10:38
Split(Cells(1, 12).Address, "$")(1)
Split(Range("ac3").Address, "$")(1)

cell(3,31),如果是这样的怎么转换英文列？

DevilW

看飞鸟的金鱼 发表于 2024-10-8 14:38
cell(3,31),如果是这样的怎么转换英文列？

Split(Cells(3, 31).Address, "$")(1)

你拼写错了，是 Cells

看飞鸟的金鱼

DevilW 发表于 2024-10-8 14:46
Split(Cells(3, 31).Address, "$")(1)

你拼写错了，是 Cells

感谢老师的回复，谢谢！

看飞鸟的金鱼

看飞鸟的金鱼 发表于 2024-10-8 15:11
感谢老师的回复，谢谢！

Sub 按钮1_Click()
Dim i As Long
For i = 8 To 24
    Range("a1:a16") = Split(Cells(3, i).Address, "$")(1)
    i = i + 1
Next i
End Sub

为什么a1~a16单元格的值 不是H~X?

ykcbf1100

看飞鸟的金鱼 发表于 2024-10-8 16:58
Sub 按钮1_Click()
Dim i As Long
For i = 8 To 24

你的代码写得有问题，这样改下就可以了。