任務: 在不同的列左側插入指定數量的空白列(本例是要求在每列左側插入第2行數字對應的空白列)

插入空白列前

插入空白列后

vba代碼如下：

Sub 在不同的列左側插入指定數量的空白列()

? ? Dim m, n, i As Integer? ??

? ? For n = 5 To 1 Step -1

? ? ? ? Sheets("Sheet1").Columns(n).Select

? ? ? ? m = Sheets("Sheet2").Cells(1, n).Value

? ? ? ? For i = 1 To m Step 1

? ? ? ? ? ? Selection.Insert Shift:=xlToRight

? ? ? ? Next i

? ? Next n

End Sub

以上代碼注釋如下：

Sub 在不同的列左側插入指定數量的空白列()

? ? Dim m, n, i As Integer? ??

? ? For n = 5 To 1 Step -1'在sheet1工作表中，假設A列共有5列，要在每列的左側插入第2行對應數字的空白列數，記住，是在左側插入空白列，不是在右側插入空白列

? ? ? ? Sheets("Sheet1").Columns(n).Select '選中sheet1工作表中的第n列

? ? ? ? m = Sheets("Sheet2").Cells(1, n).Value'提前把sheet1工作表中第2行的數字放到sheet2工作表第一行的前5個單元格中，這一步是必要的，然后取出sheet2工作表第1行的第m個單元格中的數字，賦給變量n

? ? ? ? For i = 1 To m Step 1 '利用for...next 循環在sheet1表中第m列左側插入n個空白列

? ? ? ? ? ? Selection.Insert Shift:=xlToRight '單純這一句的話，只能在第m列左側插入一個空白列

? ? ? ? Next i

? ? Next n

End Sub

總結

以上是生活随笔為你收集整理的vba 指定列后插入列_在不同的列左侧插入指定数量的空白列的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。