Question

美好的一天，

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

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

添加包含公式的新列

1 个答案: