修改VBA宏以适配任意工作簿（不受文件名限制）

以下是修改后的通用版宏代码，可在任意打开的工作簿的当前活动工作表上运行：

Sub Exportformat()
' Exportformat Macro
' Keyboard Shortcut: Ctrl+Shift+F
'
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 指向当前活动工作表
    Set ws = ActiveSheet
    
    ' 自动适配列宽
    ws.Cells.EntireColumn.AutoFit
    
    ' 获取数据最后一行（假设A列包含完整数据行）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 清除原有排序规则并设置新规则
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=ws.Range("C2:C" & lastRow), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add2 Key:=ws.Range("E2:E" & lastRow), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add2 Key:=ws.Range("F2:F" & lastRow), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        
        ' 设置排序范围（表头行到数据最后一行，A到K列）
        .SetRange ws.Range("A1:K" & lastRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 添加自动筛选
    ws.Rows(1).AutoFilter
End Sub

关键修改说明 #

• 适配任意工作表：用ActiveSheet替代原代码中固定名称的工作表，宏会对你当前选中的工作表生效，无需关心工作簿或工作表的具体名称。
• 动态数据范围：通过lastRow变量自动获取数据的最后一行，不管数据有多少行都能正确覆盖，避免原代码中硬编码154行的局限性。
• 移除冗余操作：删掉了所有不必要的Select操作，直接操作工作表对象，代码更高效且不易出错。
• 明确对象归属：所有单元格范围都指定了所属的工作表ws，避免因当前活动区域变化导致的错误。

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