写一段Excel中分析数据的VBA代码

下面是一段基本的VBA代码，用于在Excel中分析数据：

Sub analyzeData()

    ' 定义变量
    Dim dataSheet As Worksheet
    Dim outputSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim totalSales As Double
    Dim averageSales As Double
    
    ' 设置工作表
    Set dataSheet = Worksheets("数据")
    Set outputSheet = Worksheets("结果")
    
    ' 获取数据的最后一行
    lastRow = dataSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 计算总销售额
    totalSales = 0
    For i = 2 To lastRow
        totalSales = totalSales + dataSheet.Cells(i, 2).Value
    Next i
    
    ' 计算平均销售额
    averageSales = totalSales / (lastRow - 1)
    
    ' 输出结果
    outputSheet.Cells(2, 2).Value = totalSales
    outputSheet.Cells(3, 2).Value = averageSales
    
End Sub

这段代码假设有两个工作表，一个名为“数据”，另一个名为“结果”。它获取数据工作表中第二列的所有数据，并计算它们的总和和平均值。然后它在结果工作表的第二行和第三行输出这些值。您可以将此代码修改为适应您的数据和需要。