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

最新推荐文章于 2024-05-02 10:06:43 发布

一只大肥鱼

最新推荐文章于 2024-05-02 10:06:43 发布

阅读量1.3k

点赞数

分类专栏：自动化办公文章标签： vba

本文链接：https://blog.csdn.net/qq_41865473/article/details/122592145

版权

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

问题描述
MultiAB2Num函数定义
使用示例

问题描述

在EXCEL中进行VBA宏的编写时,经常会遇到需要将EXCEL工作表的列字母(如A,B,C…)等转化为行号(如1,2,3…)的需求，仅给出一个列字母往往难以对单元格的位置形成一个直观的概念，这时需要将列字母转换为列号就好的多。
EXCEL列表示

列字母	列号
A	1
B	2
C	3
…	…
AA	27
AB	28
AC	29
…	…

MultiAB2Num函数定义

Option Explicit

Function MultiAB2Num(MultiAB As String)

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

一只大肥鱼

关注关注

0
点赞
踩
5

收藏

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

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

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

Ivy的专栏

08-06

1万+

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

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

最新发布

记录

06-24

776

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

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

Excel-VBA：列号与字母（列名）的相互转换（自定义函数）

鞠勇鸿的技术专栏

11-07

1万+

'列号转字母（列名） Function Num2Name(ByVal ColumnNum As Long) As String On Error Resume Next Num2Name = "" '超出范围返回空，如调用Num2Name(100000) Num2Name = Replace(Cells(1, ColumnNum).Address(0, 0), "1", ...

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

07-17

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

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

weixin_58444518的博客

10-11

8068

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 ......

Excel_VBA 根据列号获取列字母

iteye_11020的博客

09-29

5830

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...

VBA excel显示列号

s0302017的博客

09-10

1240

Sub 显示列号() With Worksheets("sheet1") .Activate .Range("AZ1").Select End With MsgBox Selection.Column End Sub Sub 测试显示列号() Dim intCol As Integer intCol

VBA列号转为字母

weixin_41716390的博客

05-15

1625

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

VBA在Excel中字母、数字的相互转化

BeijixingVBA的博客

05-02

1810

Excel表中的行以数字展示，列用字母展示，如何将字母与数字之间相互转化，VBA有办法。

将数字转换成EXCEL列字母

05-09

VBA编写的将数字转换成EXCEL的列字母，没有EXCEL中列数的限制，相当于数字进制。可以使用在VB中。

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

culiao2169的博客

08-16

715

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. ...

使用VBA对Excel中列名称与列号之间进行转换

挨踢人士

06-24

9604

这里的列名称指的是A、B、C等样式的列，列号指列的编号，如1、2、3等等。转换之后，A列对应的列号为1,反之，列号为1的列转换之后为A。函数如下：1、通过列名称转换成对应的列号。Function GetColumnNum(ByVal ColumnName As String) As Integer Dim Result As Integer, First A

Excel-VBA：列号与列名（字母）间的互换

鞠勇鸿的技术专栏

03-28

1345

VBA实现列号与列名转换

MaFeng

09-10

1769

'列号转换为列名 Public Function NumToChr(PureNum As Integer) As String If PureNum Mod 26 = 0 Then NumToChr = VBA.IIf(PureNum \ 26 = 1, "", VBA.Chr(PureNum \ 26 + 63)) & "Z" Else N...

Excel VBA 列名列标转换函数

ChristopherChen的博客

11-29

2619

Function CI(c) 'Cells.Address.Information If IsNumeric(c) Then On Error GoTo NumErr CI = Replace(Cells(, c).Address(0, 0), 1, "") Else On Error GoTo TxtErr CI =

VBA中数字换算成列的英文字母方法

sayu3368的博客

07-03

1115

网上看到很多方法，但是最简单的感觉还是利用Cells.Address这个方法来加工得到英文字母。毕竟是Excel里面的东西，怎么简单怎么来。

【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-13

以下是一个可以将Excel的列数转换为对应字母的VBA函数： ```vba Function ColumnToLetter(columnNumber As Integer) As String Dim dividend As Integer Dim modulo As Integer Dim columnLetter As String dividend = columnNumber columnLetter = "" While dividend > 0 modulo = (dividend - 1) Mod 26 columnLetter = Chr(65 + modulo) & columnLetter dividend = (dividend - modulo) \ 26 Wend ColumnToLetter = columnLetter End Function ``` 将此代码复制粘贴到VBA编辑器中的模块中。然后，你可以在其他VBA代码中使用 `ColumnToLetter` 函数将列数转换为对应的字母。例如： ```vba Sub Test() Dim columnNumber As Integer Dim columnLetter As String columnNumber = 1 columnLetter = ColumnToLetter(columnNumber) MsgBox "Column Number " & columnNumber & " is represented by letter " & columnLetter columnNumber = 26 columnLetter = ColumnToLetter(columnNumber) MsgBox "Column Number " & columnNumber & " is represented by letter " & columnLetter columnNumber = 28 columnLetter = ColumnToLetter(columnNumber) MsgBox "Column Number " & columnNumber & " is represented by letter " & columnLetter End Sub ``` 运行上述代码将显示消息框，其中显示了给定列数对应的字母表示。请注意，此函数可以处理大于26的列数，并将其转换为字母的组合，例如AA、AB等。