写一段能应用于excel的vba代码，能够直观的分析第一列的数据，例如做一个数据透视图

以下是一个基本的 VBA 代码示例，用于生成一个数据透视表：

Sub CreatePivotTable()
    ' 定义工作表和数据范围
    Dim ws As Worksheet
    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    Dim dataRange As Range
    Set dataRange = ws.Range("A1").CurrentRegion
    
    ' 定义透视表和透视表字段
    Dim pivotTable As PivotTable
    Set pivotTable = ws.PivotTableWizard
    Dim pivotField As PivotField
    Set pivotField = pivotTable.PivotFields("Column1")
    
    ' 设置透视表字段属性和数据源
    pivotField.Orientation = xlRowField
    pivotTable.AddDataField ws.Range("B1"), "Sum of Column2", xlSum
    pivotTable.AddDataField ws.Range("C1"), "Average of Column3", xlAverage
    
    ' 设置透视表格式
    pivotTable.TableStyle2 = "PivotStyleMedium2"
End Sub

这个 VBA 代码可以自动创建一个数据透视表，其中第一列的数据将作为行字段，第二列的数据将作为“列标签”字段，第三列的数据将作为数据字段。你可以根据自己的需求修改代码，以便更好地满足数据分析的需求。