如何在VBA中获取选中区域的首末行与首末列？

嘿，我来帮你搞定这个问题～你想要获取选中区域的四个边界值，思路其实是对的，只是可能没考虑到一些特殊情况（比如没选中区域、选中的不是单元格范围），导致代码看起来“没法正常运行”。下面给你几个可行的方案：

基础方案：获取任意选中单元格区域的边界 #

这个方案适用于你手动选中任意单元格范围的场景，代码逻辑和你尝试的一致，只是补充了完整的变量和错误判断，避免运行报错：

Sub GetSelectedRangeBounds()
    Dim FirstRowTable As Long
    Dim LastRowTable As Long
    Dim FirstColumnTable As Long
    Dim LastColumnTable As Long
    
    ' 先判断当前选中的是不是单元格区域，避免选中形状/图表等导致报错
    If TypeName(Selection) = "Range" Then
        ' 获取选中区域的首行
        FirstRowTable = Selection.Row
        ' 计算选中区域的末行：首行 + 总行数 - 1
        LastRowTable = Selection.Row + Selection.Rows.Count - 1
        ' 获取选中区域的首列
        FirstColumnTable = Selection.Column
        ' 计算选中区域的末列：首列 + 总列数 - 1
        LastColumnTable = Selection.Column + Selection.Columns.Count - 1
        
        ' 可以弹出窗口验证结果
        MsgBox "选中区域信息：" & vbCrLf & _
               "首行：" & FirstRowTable & vbCrLf & _
               "末行：" & LastRowTable & vbCrLf & _
               "首列：" & FirstColumnTable & vbCrLf & _
               "末列：" & LastColumnTable
    Else
        MsgBox "请先选中一个单元格区域哦！"
        Exit Sub
    End If
End Sub

更简洁的写法 #

你也可以直接利用Range对象的属性来获取末行和末列，逻辑更直观：

Sub GetSelectedRangeBounds_Simple()
    Dim FirstRowTable As Long
    Dim LastRowTable As Long
    Dim FirstColumnTable As Long
    Dim LastColumnTable As Long
    
    If TypeName(Selection) = "Range" Then
        FirstRowTable = Selection.Row
        ' 直接选中区域的最后一行的行号
        LastRowTable = Selection.Rows(Selection.Rows.Count).Row
        FirstColumnTable = Selection.Column
        ' 直接选中区域的最后一列的列号
        LastColumnTable = Selection.Columns(Selection.Columns.Count).Column
    End If
End Sub

进阶方案：针对Excel结构化表格（ListObject） #

如果你的“表格”是Excel官方的结构化表格（通过「插入」→「表格」创建的那种），其实不需要手动选中整个表格，只要选中表格内任意单元格，就能直接获取整个表格的边界，这种方法更稳定：

Sub GetTableBounds()
    Dim tbl As ListObject
    Dim FirstRowTable As Long
    Dim LastRowTable As Long
    Dim FirstColumnTable As Long
    Dim LastColumnTable As Long
    
    ' 尝试获取选中单元格所在的结构化表格
    On Error Resume Next
    Set tbl = Selection.ListObject
    On Error GoTo 0
    
    If Not tbl Is Nothing Then
        ' 如果需要包含表头行，就去掉 +1
        FirstRowTable = tbl.HeaderRowRange.Row + 1
        ' 获取表格数据区域的末行
        LastRowTable = tbl.DataBodyRange.Rows(tbl.DataBodyRange.Rows.Count).Row
        ' 获取表格的首列
        FirstColumnTable = tbl.Range.Column
        ' 获取表格的末列
        LastColumnTable = tbl.Range.Columns(tbl.Range.Columns.Count).Column
        
        MsgBox "结构化表格信息：" & vbCrLf & _
               "首行：" & FirstRowTable & vbCrLf & _
               "末行：" & LastRowTable & vbCrLf & _
               "首列：" & FirstColumnTable & vbCrLf & _
               "末列：" & LastColumnTable
    Else
        MsgBox "当前选中的单元格不在结构化表格内哦！"
    End If
End Sub

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