錦子老師

張曉菲：「錦子老師，今天如果我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」項目。

點取「執行」鈕。

結果

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

部落格相關範例