将列号转换为字母的功能？ [英] Function to convert column number to letter?

问题描述

有没有人有Excel VBA功能，可以从数字中返回列字母？

例如，输入 100 应该返回 CV 。

解决方案

列100

 函数Col_Letter（lngCol As Long）As String 
 Dim vArr 
 vArr = Split （1，lngCol）.Address（True，False），$）
 Col_Letter = vArr（0）
结束函数
  

测试代码

  Sub Test（） 
 MsgBox Col_Letter（100）
 End Sub 
  

Does anyone have an Excel VBA function which can return the column letter(s) from a number?

For example, entering 100 should return CV.

解决方案

Something like this to return the letter for column 100

Function Col_Letter(lngCol As Long) As String
Dim vArr
vArr = Split(Cells(1, lngCol).Address(True, False), "$")
Col_Letter = vArr(0)
End Function

test the code

Sub Test()
MsgBox Col_Letter(100)
End Sub

这篇关于将列号转换为字母的功能？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！