191问答库 > 如何用VBA代码在一个工作表中间插入一行，上面的一行有公式的单元格自动复制下来

如何用VBA代码在一个工作表中间插入一行，上面的一行有公式的单元格自动复制下来

2025-03-29 03:52:15

推荐回答（2个）

回答1：

当插入新行后,点击任意单元格则在F列和G列新插入的单元格复制上一个单元格的公式
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRng As Range
endrow = Range("F65536").End(xlUp).Row
For Each MyRng In Range(Cells(1, 6), Cells(endrow, 7))
If MyRng = "" Then
MyRng.Offset(-1, 0).Copy
MyRng.PasteSpecial
End If
Next
Application.CutCopyMode = False

End Sub

回答2：

简单的宏你就复制，然后按照你的需求去修改，学习vba都是录制然后按需求改下，多录制你就自己会写了。