结合公式管理器的插入列VBA

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

在空白那一列的上方标志数字，以表示数到的那一列，然后可以向左插入一列。

在插入列上，写上前一列的公式

For j = 3 To 90
Cells(j, r).Formula = Cells(j, r - 1).Formula
Next

最后可以END SUB