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
本文介绍了一段VBA代码,该代码用于在Excel中指定位置插入新的一列,并将前一列的内容复制到新列中。首先通过查找最后一列来确定插入位置,接着执行列的插入操作,最后使用循环来复制公式的实现方法。

2481

被折叠的 条评论
为什么被折叠?



