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

VBA（Visual Basic for Applications）是一种基于微软的Visual Basic编程语言的宏语言，用于在Microsoft Office应用程序中自动化任务和定制功能。在Excel中，可以使用VBA来处理数据、生成报表、自动化操作等。

要将小计复制到Excel中的新工作表，可以按照以下步骤进行操作：

打开Excel，并在要进行操作的工作簿中按下Alt + F11，打开VBA编辑器。
在VBA编辑器中，选择插入（Insert）-> 模块（Module），创建一个新的模块。
在新的模块中编写VBA代码来实现复制小计的功能。以下是一个示例代码：

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