如何通过VBA获取Excel工作表最后一列的列地址？

修改后的VBA代码 #

Sub LastColumnInOneRow()
    Dim LastCol As Integer
    Dim ColLetter As String
    With Sheets("Current Pipeline")
        ' 先获取最后一列的列号
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        ' 将列号转换为列地址（如列号5对应"E"）
        ColLetter = Split(.Cells(1, LastCol).Address, "$")(1)
    End With
    MsgBox ColLetter
End Sub

核心逻辑说明 #

• 利用Excel单元格的Address属性返回的格式（如$E$1），通过Split函数按$符号拆分字符串，取拆分后的第2个元素（数组索引为1），就能得到纯列名。
• 该方法支持所有Excel列范围（包括AA、AB…XFD这类多字母列），比仅用Chr函数拼接的方式更可靠，无需处理Z列之后的特殊情况。

注：你例子中列号5对应"F"是笔误，Excel中列号1对应"A"，列号5对应"E"，列号6才对应"F"。

内容的提问来源于stack exchange，提问作者MEC