Excel VBA如何提取活动单元格坐标、行列号及列字母

获取A1格式相对地址（直接返回「F3」结果） #

直接调用Range对象的Address属性，通过参数控制返回无$符号的相对引用即可，示例代码：

Sub GetActiveCellRelativeAddr()
    Dim target As Range
    Set target = ActiveCell
    ' 两个参数分别为「行是否绝对引用」「列是否绝对引用」，均设为False返回纯相对地址
    Dim addr As String
    addr = target.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    ' 当活动单元格为F3时，addr变量值即为"F3"
End Sub

拆分返回(F,3)格式、单独提取列字母 #

提取列字母是你做后续整列替换操作的核心前置步骤，以下写法兼容所有Excel支持的列范围（最大支持到XFD列，不会在AA/AB等多字母列标场景出错）：

Sub SplitCellRef()
    Dim target As Range
    Set target = ActiveCell
    ' 提取列字母
    Dim colLetter As String
    colLetter = Split(target.Address(ColumnAbsolute:=False), "$")(1)
    ' 提取行号
    Dim rowNo As Long
    rowNo = target.Row
    ' 拼接为(F,3)格式
    Dim formatRef As String
    formatRef = "(" & colLetter & "," & rowNo & ")"
    ' 当活动单元格为F3时，colLetter值为"F"，formatRef值为"(F,3)"
End Sub

如果后续需要批量做列号转列字母的操作，可以封装成通用函数直接调用：

' 通用工具函数：输入数字列号，返回对应列字母
Function NumToColLetter(colNum As Long) As String
    NumToColLetter = Split(Cells(1, colNum).Address(ColumnAbsolute:=False), "$")(1)
End Function

' 调用示例（适配你后续的整列替换场景）
Sub ColumnReplaceDemo()
    Dim sourceCol As String, targetCol As String
    ' 比如取当前活动单元格列作为替换源列
    sourceCol = NumToColLetter(ActiveCell.Column)
    targetCol = "B"
    ' 执行整列替换：将源列所有"旧内容"替换为"新内容"
    Columns(sourceCol & ":" & sourceCol).Replace _
        What:="旧内容", _
        Replacement:="新内容", _
        LookAt:=xlPart
End Sub

避坑提示：不要使用Chr(Asc("A") + 列号 - 1)这类写法，列号超过26（即Z列之后）时，这类写法会返回完全错误的非列标字符，无法适配全场景使用。

数字坐标格式说明 #

• VBA中单元格的Column属性返回数字列标、Row属性返回数字行号，F3单元格对应先列后行的数字坐标为(6,3)
• 如需先行后列的(3,6)格式，直接按(target.Row, target.Column)顺序取值即可。

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