任務(wù): 在不同的列左側(cè)插入指定數(shù)量的空白列(本例是要求在每列左側(cè)插入第2行數(shù)字對(duì)應(yīng)的空白列)

插入空白列前

插入空白列后

vba代碼如下：

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

? ? 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 在不同的列左側(cè)插入指定數(shù)量的空白列()

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

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

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

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

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

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

? ? ? ? Next i

? ? Next n

End Sub

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。