C-F列录入数据自动复制G-R列上一行公式

jiali0208

求助：请各位老师，用VBA帮忙解决下，谢谢！

从C列第9行开始，只要录入在9行C列、D列、E列、F列如何一列录入数据，自动复制G列到R列的上一行公式【以第8行公式为准】，10行C列、D列、E列、F列如何一列录入数据，复制9行的公式，以此往下类推。

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column = 3 And Target.Row > 8 Then     r = Target.Row     For j = 7 To 19       If Cells(r - 1, j).HasFormula Then         Cells(r - 1, j).Copy Cells(r, j)       End If     Next   End If   End Sub 那位老师帮我看看，谢谢，在论坛找的代码，和我的要求有点差距，请老师们帮忙解决下，复制多行数据到C列，上行公式只能复制一行，不能连续复制。