VBA为另一个工作表中的每个过滤器数据创建表

基础概念

VBA（Visual Basic for Applications）是Microsoft Office软件中的编程语言，允许用户自定义各种功能和自动化任务。在Excel中，VBA可以用来操作工作表、单元格、图表等对象，实现复杂的数据处理和分析。

类型

在Excel中使用VBA创建表格主要有以下几种类型：

标准表格：使用Worksheet_PivotTableChange事件来响应数据透视表的更改，并创建新的表格。
动态表格：根据数据源的变化自动更新表格内容。
汇总表格：对数据进行汇总和分析，生成统计表格。

应用场景

假设你有一个包含多个过滤器的数据集，你想为每个过滤器的数据创建一个独立的表格。例如，你有一个销售数据表，你想为每个产品类别创建一个销售汇总表。

示例代码

以下是一个简单的VBA示例，展示如何为另一个工作表中的每个过滤器数据创建表：

Sub CreateTablesForFilters()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim rngData As Range
    Dim cell As Range
    Dim filterValue As String
    Dim tableName As String
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsDest = ThisWorkbook.Sheets("Sheet2")
    
    ' 设置数据范围
    Set rngData = wsSource.Range("A1:D100")
    
    ' 遍历每个过滤器值
    For Each cell In wsSource.Range("E1:E100").Cells
        If cell.Value <> "" Then
            filterValue = cell.Value
            tableName = "Table_" & filterValue
            
            ' 创建新的表格
            With wsDest.PivotTables.Add(SourceType:=xlDatabase, SourceData:=rngData, TableDestination:=wsDest.Cells(1, 1), TableName:=tableName)
                .RowFields.Add Field:=wsSource.Range("A:A"), Name:="Product"
                .ColumnFields.Add Field:=wsSource.Range("B:B"), Name:="Category"
                .DataFields.Add Field:=wsSource.Range("C:C"), Name:="Sales", Function:=xlSum
            End With
        End If
    Next cell
End Sub