EXCEL VBA 工資表製作

在百度上看到一些工資條製作的VBA語句，都是需要人為再對語句的循環次數進行更新，因本人正好用到工資表（將每一條記錄前都添加表頭），所以對語句進行了優化，可以直接使用以下語句對需要作成工資表的文檔進行處理，不需要更改任何內容。用法：单击菜单栏“工具”—“宏”—“Visual Basic编辑器”或直接按下Alt+F11快捷键打开VBA编辑窗口,粘貼以下語句，再運行即可，我有加了備注，方便理解。Sub 插入表頭() R = Cells(Rows.Count, 1).End(xlUp).Row '計算原表一共有多少行 For i = R To 3 Step -1 '考慮增加表頭會使總行數發生變化，一般採用倒着处理 Range('1:1').Copy '複制表頭 Rows(i).Select '引用I,選定需要插入的位置 Selection.Insert Shift:=xlDown '插入表頭 Application.CutCopyMode = FalseNextEnd Sub