ExcelVBA 宏将数字转换为列号/列字母/列名数字字母转换

今夕乃何夕

已于 2022-07-15 09:21:29 修改

阅读量8.2k

点赞数 8

文章标签： vba excel

于 2021-10-11 09:41:35 首次发布

本文链接：https://blog.csdn.net/weixin_58444518/article/details/120696925

版权

本文介绍了如何在Excel中利用内置的Columns函数获取特定列的地址，并通过split函数提取列字母。例如，Columns(27).Address返回的是"$AA:$AA"，进一步处理后可以得到列字母"AA"，这对于处理大量数据时非常有用。

摘要由CSDN通过智能技术生成

1.利用自带的columns函数

如Columns(27).Address表示27列的地址，也就是"$AA:$AA"

2.使用split函数

按照字符"$"进行拆分得到数组，索引为2的就是我们需要的列字母

Function ColLetter(Num As Long) As String
     ColLetter = Split(Columns(Num).Address, "$")(2)
End Function

举例：Split(Columns(27).Address, "$")(2) 的结果是 AA

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

今夕乃何夕

关注关注

8
点赞
踩
14

收藏

觉得还不错? 一键收藏
打赏
2
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

VBA将EXCEL的列字母转换为列号

qq_41865473的博客

01-19

1359

VBA将EXCEL的列字母转换为列号问题描述MultiAB2Num函数定义使用示例问题描述在EXCEL中进行VBA宏的编写时,经常会遇到需要将EXCEL工作表的列字母(如A,B,C…)等转化为行号(如1,2,3…)的需求，仅给出一个列字母往往难以对单元格的位置形成一个直观的概念，这时需要将列字母转换为列号就好的多。列字母列号 A 1 B 2 C 3 … … AA 27 AB 28 AC 29 … … MultiAB2Num函数定义 Option Ex

excel vba 列_Excel VBA：将列标题切换为数字

culiao2169的博客

08-16

736

excel vba 列 Excel VBA：将列标题切换为数字 (Excel VBA: Switch Column Headings to Numbers) It's Friday, and your brain is almost full, but let's try to cram a little bit of Excel VBA in there before the weekend. ...

2 条评论您还未登录，请先登录后发表或查看评论

【VBA研究】cells(row,col)引用中的列号也可以直接用字母表示

驽马十驾才定不舍

03-22

1万+

iamlaosong文对单元格进行处理的时候往往会用cells(row,col)进行引用，如cells(1,3)表示C1单元格（1行3列），当用户用字母（列名）指定列的时候，我们首先将字母转换成数字列号，如C列用Asc(UCase("c")) - 64转换为3，然后再进行引用。现在又发现另一个写法，就是列可以直接用字母或者内容为字母的变量表示，这样就不需要将字母转换成数字了。如：...

VBA中将 Excel 列号转换为字母字符

07-17

VBA中将 Excel 列号转换为字母字符

VBA：Excel单元格数字字母转换

rubyw的博客

08-28

597

【代码】VBA：Excel单元格数字字母转换。

VBA实现数字列与字母列的相互转化

热门推荐

gold_star的专栏

09-13

3万+

VBA实现数字列与字母列的相互转化的方法

Excel_VBA 根据列号获取列字母

iteye_11020的博客

09-29

5880

Function getColumnLetter(ByVal myCol As Integer) As String '获取单元格列标的字母 Dim columnName As String Dim k As Integer k = (myCol - 1) \ 26 Select Case k Case 0 Case E...

Excel VBA---将列对应数字转换为字母

weixin_34195142的博客

05-21

547

Private Function GetColName(ByVal y As Integer) As String Dim z As Integer Dim i As Integer Dim n(25) As String For i = 0 To 25 n(i...

Matlab开发：将Excel列名转换为列号的函数实现

3. 函数 XLSCOLSTR2NUM: 这是一个 MATLAB 函数，专门用于将字符型元胞数组中的 Excel 列名转换为对应的列号数字。这个函数的实现基于 Excel 列名的编码规则。 4. 函数 XLSCOLNUM2STR: 该函数与 XLSCOLSTR2NUM 互为...

把数字转换成Excel的列名

07-03

在VBA编程中有时候会要把数字转换成表格的字母列名。这个资料将提供这项功能，只要输入[1，256]之间的整数就可以得到相应列的列名。如1为A,27为AA等! 交流QQ:1479819480

VBA列号转为字母

weixin_41716390的博客

05-15

1789

VBA列号转为字母数字转为字母

VBA列数字与字母互换

goldengod的专栏

01-31

7114

vba列数字与字母互换: 方案一:速度:快 Function NumToStr(ByVal Num As Long) As String '数字转字母 Dim M As Long If Num Do M = Num Mod 26 If M = 0 Then M = 26 NumToStr

VBA 列号和对应的字母相互转换

最新发布

记录

06-24

828

VBA 列号和对应的字母相互转换

VBA 代表列名转换：数字转换成字母

Ivy的专栏

08-06

1万+

废话不多少先上代码： '***************************************************************************** '将Excel中列数转换为列名（如27列--->AA列） '参数：var 列数 '返回：列名 string '******************************************************

数字转换成excel列名（10进制到Excel的26进制的转换函数）

草青工作室的专栏

05-22

3745

数字转换成 exce l列名（10 进制到 Exce l的 26 进制的转换函数）

VBA 获取单元格行标和列标&数字转字母

logo_28的博客

03-30

8913

在vba中,对单元格进行操作,经常需要知道单元格所在的行或列.可用以下方法获取: 一、单元格的行标和列标 set C=range("A1") c.row 得行号, c.column 得列号二、列号转字母 ‘将1,2,3,....转为"A","B","C"..... Sub test() For i = 1 To 26 ...

学以致用——使用VBA函数将十进制数字转换为字母（二十六进制）（Convert a number to letters (Excel Column number to name)）

预见未来to50的专栏

06-04

2330

利用空闲时间，开发了一个十进制转换为字母（相当于26进制）的函数。功能有：1. 给定Excel列标，返回对应的列名（如，第677列对应的列名为“ZA”）（但是，Excel中的列最多为16384列，对应的列名为XFD）2. 给定任意正长整形数值（即，1到2147483647），可返回对应的字母3. 可通过VBE immediate窗口查看计算过程（debug print）代码:Function Ge...

【一、数字转换为Excel表格的列名（数字26，转换为Z；数字27，转换为AA）】

youverybad的博客

04-01

443

【一、数字转换为Excel表格的列名（数字26，转换为Z；数字27，转换为AA）】

VBA 列号转列名

weixin_30739595的博客

07-11

464

前段时间做的一个项目（Vista print）中需要将列号转为列名（例如：第26列应该是第Z列）。那137或者185列应该是哪列呢？总不能就这么数下去吧。最后写了个Funtion解决这一问题。代码如下： Public Function NumToChr(PureNum As Integer) As String If PureNum Mod 26 = 0 Then ...

VBA将字母列号转化为数字列号

05-20

在VBA中，可以使用函数`ColumnLetterToNumber`将字母列号转化为数字列号： ``` Function ColumnLetterToNumber(ByVal col As String) As Integer Dim i As Integer Dim result As Integer For i = 1 To Len(col) result = result * 26 + (Asc(UCase(Mid(col, i, 1))) - 64) Next i ColumnLetterToNumber = result End Function ``` 使用方法： ``` Sub Test() Dim columnLetter As String Dim columnNumber As Integer columnLetter = "B" columnNumber = ColumnLetterToNumber(columnLetter) MsgBox "Column " & columnLetter & " is column number " & columnNumber End Sub ``` 这个函数的原理是将每个字母转化为数字，然后将多个数字相加得到结果。例如，将字母列号"AB"转化为数字列号，首先将"A"转化为1，然后将"B"转化为2，最后将1和2相加得到结果3。

ExcelVBA 宏 将数字转换为列号/列字母/列名 数字字母转换

ExcelVBA 宏将数字转换为列号/列字母/列名数字字母转换