VBA 資料分析教學：DAY 6

 範例說明：使用 VBA 讀取 Excel 工作表資料，計算某欄位（例如「銷售額」）的總和與平均值，並將結果輸出到指定儲存格。

Sub CalculateSumAndAverage()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim rng As Range

    Dim totalSales As Double

    Dim avgSales As Double

    Set ws = ThisWorkbook.Sheets("銷售資料")

    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' 假設數據在 B 欄

    Set rng = ws.Range("B2:B" & lastRow)

    totalSales = Application.WorksheetFunction.Sum(rng)

    avgSales = Application.WorksheetFunction.Average(rng)

    ws.Range("D2").Value = "銷售總和"

    ws.Range("D3").Value = totalSales

    ws.Range("E2").Value = "銷售平均"

    ws.Range("E3").Value = avgSales

End Sub

解說：

先指定工作表與要處理的資料範圍。

用 Excel 內建函數 Sum 和 Average 計算銷售資料的總和與平均。

將計算結果寫入工作表上特定儲存格，方便查看。

此程式碼適合快速做簡單資料彙整。