Excel VBA：识别最后占用行列并删除其后所有行列

嘿，我来帮你搞定这个VBA需求！你说的要删除最后已用行/列之后的所有空行空列，其实核心是先精准找到真正的最后一个有数据的行和列，然后定位到要删除的范围就行。我给你写好完整代码，再一步步讲清楚逻辑，保证你能看懂能用～

Sub DeleteUnusedRowsAndColumns()
    Dim ws As Worksheet
    Dim lastUsedRow As Long
    Dim lastUsedCol As Long
    
    ' 指定要操作的工作表，默认用当前激活的表，可改成Sheets("你的表名")
    Set ws = ActiveSheet
    
    ' --------------------------
    ' 找到真正的最后一个有数据的行
    ' --------------------------
    If ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues) Is Nothing Then
        ' 工作表完全为空时，无需删行
        lastUsedRow = 0
    Else
        lastUsedRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
    End If
    
    ' 删除最后已用行之后的所有行
    If lastUsedRow > 0 And lastUsedRow < ws.Rows.Count Then
        ws.Rows(lastUsedRow + 1 & ":" & ws.Rows.Count).Delete
    End If
    
    ' --------------------------
    ' 找到真正的最后一个有数据的列
    ' --------------------------
    If ws.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlValues) Is Nothing Then
        ' 工作表完全为空时，无需删列
        lastUsedCol = 0
    Else
        lastUsedCol = ws.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlValues).Column
    End If
    
    ' 删除最后已用列之后的所有列
    If lastUsedCol > 0 And lastUsedCol < ws.Columns.Count Then
        ws.Columns(lastUsedCol + 1 & ":" & ws.Columns.Count).Delete
    End If
    
    MsgBox "多余的行和列已删除完成！", vbInformation
End Sub

• 精准定位最后一行/列：
  我没有用UsedRange，因为它会记录工作表曾经使用过的单元格范围——哪怕你后来清空了内容，它的范围也不会自动缩小，容易导致误删或漏删。用Cells.Find从工作表末尾往前找第一个非空单元格，能得到真正的最后有数据的行/列，准确性更高。
• 删除多余范围的写法：
  比如最后已用行是lastUsedRow，要删除的就是从lastUsedRow + 1到工作表最后一行（ws.Rows.Count）的所有行，用Rows("起始行:结束行")来定位范围，再调用Delete方法即可。列的操作逻辑完全一致，换成Columns就行。
• 防错判断：
  加了两个判断条件：如果工作表完全为空，或者最后一行/列已经是工作表的边界（比如只有1行数据），就跳过删除操作，避免出现运行错误。

• 如果你要操作固定工作表，把Set ws = ActiveSheet改成Set ws = ThisWorkbook.Sheets("Sheet1")（替换成你的工作表名称）。
• 运行代码前建议先备份文件，避免误删重要数据。
• 要是你的数据包含公式返回空值的情况，可以把LookIn:=xlValues改成LookIn:=xlFormulas，这样带公式的单元格哪怕显示空，也会被算作已占用。

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