将列字母隐藏到数字

Question

发现下面的代码来自谷歌可以将数字转换为列字母,但是如何从列字母到数字,任何人都可以帮助重写功能？谢谢

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