在VBA Excel中插入7步的空列
返回
我有28列，但是每7列之后我要插入一个空列。您能帮我创建那个宏吗？
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "LP"
For i = 2 To 22
Sheets(i).Activate
Sheets(i).Cells(5, 2).Select
Sheets(i).Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Linearity Plot").Activate
Sheets("Linearity Plot").Cells(i - 1, 1).Select
ActiveSheet.Paste
Next i
ActiveSheet.Range(Cells(1, 1), Cells(21, 121)).Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Transpose"
Sheets("Transpose").Activate
Worksheets("LP").Range("A1:DQ21").Copy
Worksheets("Transpose").Range("A2").PasteSpecial Transpose:=True
ZwoRmi
试试这个代码：
Sub insertColumns()
Dim lastCol As Integer
lastCol = 28
Dim i As Integer
i = 0
Dim nbColAdded As Integer
nbColAdded = 0
While i < lastCol + nbColAdded
i = i + 8
nbColAdded = nbColAdded + 1
Cells(1, i).EntireColumn.Insert
Wend
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
VBA-如何在Excel中插入空列
- 2
在表Excel VBA中插入新列
- 3
在 Excel 列 VBA 中插入图像
- 4
在VBA Excel中插入行
- 5
在 VBA excel 中插入空行
- 6
如何比较Excel（VBA）中的行并插入其他列？
- 7
Excel VBA插入行
- 8
如何通过VBA在Excel中插入文本
- 9
在VBA Excel中制作插入语句
- 10
在VBA中插入图像
- 11
VBA遍历空列
- 12
VBA遍历空列
- 13
使用VBA在访问中的日期字段中插入空值
- 14
在VBA中不为空
- 15
从Excel将VBA插入Word
- 16
使用Excel VBA插入Redshift
- 17
通过 VBA 插入 Excel 公式
- 18
列求和 Excel VBA
- 19
如何使用Excel VBA在列的文本开头插入特定值？
- 20
VBA Excel中的VBA DateValue（）中的错误？
- 21
VBA中的Excel RTD
- 22
Excel VBA中的超时
- 23
VBA Excel中的排列
- 24
在Excel VBA中循环
- 25
在Excel VBA中“包含”？
- 26
Excel VBA中的Vlookup
- 27
Excel VBA：如果列A中的单元格为空，则删除整行（长数据集）
- 28
VBA Excel根据列中的值删除行，如果为空则继续
- 29
Excel VBA编程执行VBA
我来说两句