excel - 将列字母转换为数字

Question

这个问题已经有答案了:

Excel column number from column name (7 个回答)

已关闭 6 个月前。

我找到了将数字转换为列字母的代码。

如何将列字母转换为数字？

Sub colLtr()
Dim mycolumn
mycolumn = 1000
Mcl = Left(Cells(1, mycolumn).Address(1, 0), InStr(1, Cells(1, mycolumn).Address(1, 0), "$") - 1)
MsgBox Mcl
End Sub

Answer 1

您可以通过字母引用列，如下所示:

Columns("A")

因此，要获取列号，只需修改上面的代码即可:

Columns("A").Column

上面的行返回一个整数(在本例中为 1)。

因此，如果您使用变量 mycolumn 来存储和引用列号，则可以这样设置值:

mycolumn = Sheets("Sheet1").Columns("A").Column

然后你可以这样引用你的变量:

Sheets("Sheet1").Columns(mycolumn)

或引用单元格 (A1):

Sheets("Sheet1").Cells(1,mycolumn)

或者引用一系列单元格(A1:A10)，您可以使用:

Sheets("Sheet1").Range(Cells(1,mycolumn),Cells(10,mycolumn))