2699插入空白列-VBA

張曉菲 ：「錦子老師，今天如果我 B 欄位的數字是連續的列下來，要利用 B 欄位的數字在 B 欄帶入相對應的空白列，才可以讓數值不會錯亂？謝謝」

要變成這樣。

錦子老師：「由於這是一種操作，故必須透過VBA程序來處理。

首先按ALT+F11開啟VBA視窗。

點取「插入 > 模組」指令，新增MUDULE1模組。

輸入下列程序：

Sub test()

   With Sheets("工作表1")

       lastrow = .Range("b" & Rows.Count).End(xlUp).Row

       For i = lastrow To 2 Step -1

           For j = 1 To .Range("b" & i - 1) - 1

               .Range("b" & i).Insert Shift:=xlDown

           Next j

       Next i

   End With   

End Sub

按 ALT+F4 關閉 VBA 視窗。

點取「檢視 > 巨集」指令。

在【巨集】對話方塊，點取「巨集名稱」列示方塊中「TEST」項目。

點取「執行」鈕。

結果

以上就是今天主要學習的知識點，希望對大家有所幫助 ~~ 有什麼問題歡迎留言，我會儘量及時的給大家答覆 ~~