Excel VBA 自动分类汇总数据：快速指南和代码示例

自动分类汇总数据是 Excel VBA 的一种常见用途。以下是一些步骤，可用于编写代码以实现此功能：

定义变量和对象：定义一个变量来存储要分类汇总的数据范围，以及一个对象来表示工作表。
创建一个字典对象：使用 VBA 中的字典对象来存储数据。字典对象是一种键值对的集合，其中每个键都与一个值相关联。
循环遍历数据范围：使用循环语句来遍历数据范围中的每个单元格，并将数据存储到字典对象中。将每个单元格的值作为键，将出现的次数作为值。
汇总数据：使用循环语句来遍历字典对象，并将每个键和值存储到新的工作表中。在新工作表中，将键作为列标题，将值作为行数据。

以下是一个示例代码：

Sub AutoCategorySummary()
    Dim DataRange As Range
    Dim WorkSheet As Worksheet
    Dim Dict As Object
    Dim Key As Variant
    Dim i As Long
    Dim SummarySheet As Worksheet
    
    '定义数据范围和工作表
    Set DataRange = Range("A2:A20")
    Set WorkSheet = ActiveSheet
    
    '创建字典对象
    Set Dict = CreateObject("Scripting.Dictionary")
    
    '循环遍历数据范围
    For i = 1 To DataRange.Rows.Count
        If Not Dict.Exists(DataRange(i).Value) Then
            Dict.Add DataRange(i).Value, 1
        Else
            Dict(DataRange(i).Value) = Dict(DataRange(i).Value) + 1
        End If
    Next i
    
    '汇总数据
    Set SummarySheet = Worksheets.Add
    SummarySheet.Name = "Summary"
    
    SummarySheet.Range("A1").Value = "Category"
    SummarySheet.Range("B1").Value = "Count"
    
    i = 2
    For Each Key In Dict.Keys
        SummarySheet.Range("A" & i).Value = Key
        SummarySheet.Range("B" & i).Value = Dict(Key)
        i = i + 1
    Next Key
    
    '格式化汇总表
    SummarySheet.Range("A1:B1").Font.Bold = True
    SummarySheet.Columns.AutoFit
End Sub

此代码将从 A2 到 A20 的单元格范围中读取数据，并将数据分类汇总到新的工作表中。在新工作表中，第一列将包含分类，第二列将包含每个分类的数量。最后，代码将格式化新的工作表以使其易于阅读。

优化建议：

使用更具描述性的变量名称，例如 dataRange 而不是 DataRange。
在代码中添加注释，解释每个部分的功能。
使用 Option Explicit 声明变量，可以帮助避免错误。
考虑添加错误处理机制，以防止出现意外错误。

通过这些优化，您的代码将更加清晰易懂，并且更容易维护。