添加包含公式的新列

美好的一天，

我正在试图在我创build的工作表上添加一列，包括所选列的公式。 根据检查冲浪的一些代码，我看到了这一点，

Sub InsertRows() Dim Rng As Long Dim lngA As Long Dim lngB As Long Application.ScreenUpdating = False Rng = InputBox("Enter number of rows required.") If Rng = 0 Then Exit Sub Range(ActiveCell.Offset(1), ActiveCell.Offset(Val(Rng), 0)).EntireRow.Insert '// How many formulas To copy down? '// From A To last entry In row. lngB = ActiveCell.Row lngA = Cells(lngB, Columns.Count).End(xlToLeft).Column Range(Cells(lngB, 1), Cells(lngB + Val(Rng), lngA)).FillDown 

这个代码真的适合我的需要，但是经过多次尝试后，我无法将其转换为列函数。 我可以请你帮忙转换吗？ 非常感谢

最好的祝福，

Answer 1

看一下这个：

 Sub InsertCols() Dim Rng As Long Application.ScreenUpdating = False Rng = InputBox("Enter number of rows required.") If Rng = 0 Then Exit Sub Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, Val(Rng))).EntireColumn.Insert ActiveCell.EntireColumn.Copy Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, Val(Rng))).EntireColumn.PasteSpecial xlPasteAll Application.CutCopyMode = False End Sub