网站版权 技术支持,网页布局实例,wordpress悬浮框,想自己建个网站任务: 在不同的列左侧插入指定数量的空白列(本例是要求在每列左侧插入第2行数字对应的空白列) 插入空白列前 插入空白列后 vba代码如下#xff1a; Sub 在不同的列左侧插入指定数量的空白列() Dim m, n, i As Integer For n 5 To 1 Step -1 Sheets(Sheet1).C… 任务: 在不同的列左侧插入指定数量的空白列(本例是要求在每列左侧插入第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
