此为历史版本和 IPFS 入口查阅区,回到作品页
錦子老師
IPFS 指纹 这是什么

作品指纹

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」項目。

點取「執行」鈕。

結果

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



CC BY-NC-ND 2.0 授权