VBA 資料分析教學：Day 2

 VBA 資料分析教學範例與解說

這是一個簡單的 VBA 範例，用來計算 Excel 工作表「SalesData」中，從第2列開始的銷售額總和，並將結果寫入欄位D1與D2。

Sub CalculateSalesSummary()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim totalSales As Double

    Dim i As Long

    Set ws = ThisWorkbook.Sheets("SalesData")

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    totalSales = 0

    For i = 2 To lastRow

        totalSales = totalSales + ws.Cells(i, "B").Value

    Next i

    ws.Range("D1").Value = "總銷售額"

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

End Sub

先指定要分析的工作表為SalesData。

利用 A欄找到最後一筆資料列數(lastRow)。

用迴圈累加B欄每列的銷售金額。

結果寫入D1標題及D2儲存格。

這個範例展示如何用 VBA 自動化資料彙總，適合初學者練習操作Excel資料。