输入字母直接得到列号

武松打鼓 · 发表于 2024-9-12 11:14

感觉输入字母比较方便，但试几次没成功，请高手

提取不重复-字母.rar (47.42 KB, 下载次数: 13)

ykcbf1100 · 发表于 2024-9-12 11:36

小改一下。。。

武松打鼓 · 发表于 2024-9-12 11:41

答复迅速，谢谢指点

smuuwl · 发表于 2024-9-12 11:57

aa = Asc(UCase(Application.InputBox("请输入列号(输入字母):A-T之间"))) - 64

复制代码

把这句替换一下

taller · 发表于 2024-9-12 12:10

至需要修改一行代码

arr = Range(ab & "6:" & ab & Cells(Rows.Count, ab).End(xlUp).Row)

或者

arr = Cells(6, ab).Resize(Cells(Rows.Count, ab).End(xlUp).Row - 5)

武松打鼓 · 发表于 2024-9-12 16:45

smuuwl 发表于 2024-9-12 11:57
把这句替换一下

这句怎么解释？

smuuwl · 发表于 2024-9-12 17:50

武松打鼓发表于 2024-9-12 16:45
这句怎么解释？

先把输入的字母转为大写，然后获取ASCII数值。
比如A的ASCII是65，然后减去64，就等于第1列了

xsy我可以很好 · 发表于 2024-9-12 21:58

'列数转字母
Function CNtoW(ByVal num As Long) As String
CNtoW = Replace(Cells(1, num).Address(False, False), "1", "")
End Function
'字母转列数
Function CWtoN(ByVal AB As String) As Long
CWtoN = Range("a1:" & AB & "1").Cells.Count
End Function

		自动登录	找回密码
密码			免费注册

[求助] 输入字母直接得到列号

评分