如何使用vba 函数在excel中插入新行自动复制公式？

Question

1.插入新行后，不立即开始复制；
2.当特定单元格（新行的第二列）输入数据后，在该行特定的列复制指定行对应列单元格内的公式及格式。

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
r = Target.Row
For c1 = 9 To 19
Cells(3, c1).Copy
Cells(r, c1).PasteSpecial
Next c1
Application.CutCopyMode = False
Cells(r, 2).Select
End If
End Sub
就可以了，你试试看本回答被提问者和网友采纳

Answer 2

if range("b" & i).value <> "" then
复制。。。。

end if

能看明白吗？追问

我想复制从i3到s3里的公式到当前行，代码能写详细吗？谢谢你。

追答

我想知道你I3到S3里的公式是用excel公式填写的还是VBA写的？

追问

i3到s3里的都是excel公式。谢谢你。