本文介绍了一段VBA代码，该代码用于在Excel中指定位置插入新的一列，并将前一列的内容复制到新列中。首先通过查找最后一列来确定插入位置，接着执行列的插入操作，最后使用循环来复制公式的实现方法。
Sub insert()
Dim i As Integer
Dim j As Integer
r = Cells(1, Columns.Count).End(xlToLeft).Column
Columns(r).insert shift:=xlToLeft
End Sub
Dim i As Integer
Dim j As Integer
r = Cells(1, Columns.Count).End(xlToLeft).Column
Columns(r).insert shift:=xlToLeft
End Sub
在空白那一列的上方标志数字，以表示数到的那一列，然后可以向左插入一列。
在插入列上，写上前一列的公式
For j = 3 To 90
Cells(j, r).Formula = Cells(j, r - 1).Formula
Next
最后可以END SUB
扫一扫
2109
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
