使用VBA将小计复制到Excel中的新工作表

Sub CopySubtotalsToNewSheet()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 创建新的工作表
    Set newWs = Worksheets.Add
    
    ' 复制小计到新的工作表
    ws.Rows(1).Copy newWs.Rows(1) ' 复制表头
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 获取最后一行
    ws.Range("A1").Offset(1, 0).Resize(lastRow - 1).SpecialCells(xlCellTypeVisible).Copy newWs.Range("A2") ' 复制小计
    
    ' 调整新工作表的列宽
    newWs.Columns.AutoFit
    
    ' 提示复制完成
    MsgBox "小计已成功复制到新的工作表。"
End Sub