Excel 如何用VBA得到第几列的列号

有如下两种 *** 作，目前还不知你要选择哪种。

A 已知字母序号，求列数（数字表示）

使用如下公式，括号内为该列字母序号

columns("AZ")column

返回值为52

B已知列数，求字母序号列

使用如下公式，括号内为单元格地址（行，列）。

cells(1,52)address

返回值为$AZ$1，可再利用mid()公式提取2、3位字符。

具体 *** 作如下：

alt+F11，打开VBA编辑器

alt+G，立即窗口

输入如下代码：

columns("AZ")column

回车

Sub a()

Dim i As Integer

For i = 0 To UBound(Split(SelectionAddress, ","))

MsgBox Split(Split(SelectionAddress, ",")(i), "$")(2)

Next

End Sub

刚才又思考了一下，下面代码更加简单实用强大。

Sub test()

For Each c In SelectionRows

MsgBox cRow

Next

End Sub

Dim y

y = Range("iv1")End(xlToLeft)Column

Cells(1, y)Select

End(xlToRight)Column 得到的是从左向右的最后一个非空单元格列号，不能百分之百保证是最后一列（中间出现空列）

Range(x,y)是错误语法。应为Range(cells(x,y),cells(m,n)),或者Range("A1:Z1")

假如单元格区域变量为ra，则

起始行号=rarow

截止行号=rarow+rarowscount-1

起始列号=racolumn

截止列号=racolumn+racolumnscount-1

以上就是关于Excel 如何用VBA得到第几列的列号全部的内容，包括:Excel 如何用VBA得到第几列的列号、VBA如何得到选中的多行 的行号和列号、VBA返回列号 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！