前景提要(文末提供源碼下載）

在之前我們分享過間隔插入行的操作，在那之後就有小夥伴希望我能夠實現批量插入固定表頭的功能，在日常的财務或者是HR的工作中，經常會需要制作工資條，工資條都有固定的表頭，但是插入表頭就比較的麻煩，一個一個的複制粘貼來實現插入嗎？一個公司最少都有100号人，一個個的手動插入，那個工作量肯定很大了，那麼我們今天就來實現下這個功能。

場景說明

批量插入表頭應該施工資條運用的比較的多，但是某些個别場景也會運用，所以今天我們假設了兩個場景。

這是假設的工資條的操作場景

這是個别小夥伴們需要的按照部門插入表頭，計算部分經費的場景。都可以在今天用相同的代碼來實現。

代碼區

來吧，開工

Sub TEST() Dim rng As Range, a As Range, frng As Range, Urng As Range, trng As Range Set trng = Application.InputBox("請選擇表頭區域", "區域的選擇", , , , , , 8) CountR = trng.Rows.Count FirstC = trng.Column num = trng.Rows.Count Set rng = Application.InputBox("請選擇類名所在列", "區域的選擇", , , , , , 8) FirstR = rng.Row Set frng = rng(1) k = 0 For Each a In rng.Offset(1, 0) If a <> frng And a <> "" Then Set frng = a frng.EntireRow.Insert trng.Copy frng.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove End If Next a End Sub

其實代碼整體看來還是非常的簡短的，來驗證下效果。

上面的動圖已經完美的呈現出了效果，大家是否滿意呢？

代碼解析

來看看今天的代碼解析

今天的代碼就非常的簡單了。 其實關鍵的核心點還是要獲取插入的行列的位置，這和我們之前間隔插入行列的操作是一樣的要求

大家可以回去看看曆史的文章，理解的會更加的深刻一些，而今天我們對代碼作出了一些調整。

在之前我們學習插入行列的時候，利用了具體的單元格的行列的寫法，看起來比較的麻煩

Excel VBA7.70間隔插入空行，VBA快又準！職場生存效率高于一切

這是我們之前的代碼，看起來很繁瑣，我當初這樣寫的原因，無非就是希望讓大家能夠更清楚操作的原理，能夠在腦海中形成一個單元格不斷移動的方式的邏輯概念和方法

我的初衷還是希望分享一些方法給大家，有難而易，後面大家再碰到自己的工作場景的時候，才可以寫出自己需要的代碼，純粹是分享代碼的話，并不是我的初衷

當然純粹的代碼分享 簡單的講解，我也在努力的通過早上7：30的早間檔來分享，主要分享一些常用的代碼，也僅僅是做一些簡單的分析而已，适合一些時間比較緊迫的小夥伴們能夠盡量拿來就用，也是提升效率的好方法。

而現在大家經過之前的學習已經能夠有這樣的邏輯了，所以這裡我們就直接使用簡單的的方法了。不再去構造一些更加複雜的方法了。

trng.Copy frng.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

插入表頭的方式也非常的簡單，我們隻需要複制表頭，然後執行插入列的操作就可以實現了。 非常的簡單

以上的方法基本上可以滿足大家的日常工作需求了，如果有其他的需求，大家也可以根據自己的需求來做适當的改動。

================================

本節課的案例源碼已經上傳，需要的小夥伴後台私信“7-72.2”，希望大家多支持~~，多多關注 ~ ~

好了，明晚19:00,準時再見!