VBA 資料分析教學：Day 4

 VBA 資料分析教學範例與解說：自動填入流水號

目的：自動在 Excel 資料清單中填寫流水號，省去手動輸入時間。

範例程式碼：

Sub EnterSerialNumber()

    Dim serial_num As Integer

    serial_num = InputBox("請輸入欲產生的流水號最大值：")

    

    For sn = 1 To serial_num

        ActiveCell.Value = sn

        ActiveCell.Offset(1, 0).Activate

    Next sn

End Sub

說明：

1. 使用 InputBox 讓使用者輸入最大的流水號數字。

2. 使用 For 迴圈從 1 到輸入的最大值依序填入目前選取儲存格。

3. 每次填完後，透過 Offset(1,0) 移動到下一列繼續填寫。

用途：適合需要在資料表中對項目進行編號的初步資料清理與整理。