复制上一行公式？

2217918 · 发表于 2019-2-15 11:23

本帖最后由 2217918 于 2019-2-15 23:15 编辑

各位老师们好，帮忙解决下，复制上一行公式，谢谢！从C列第9行开始，只要录入在9行C列、D列、E列、F列如何一列录入数据，自动复制G列到U列的上一行公式【以第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列，上行公式只能复制一行，不能连续复制。

2217918 · 发表于 2019-2-17 14:12

请老师们，帮下忙！拜托啊

yaozong · 发表于 2019-2-17 15:04

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, [C9:F65536]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim r&
r = Target.Row
Cells(r - 1, "G").Resize(1, 15).SpecialCells(3).Copy Cells(r, "G")
End Sub

复制代码

liangmutou01 · 发表于 2019-2-17 15:29

见代码：
Private Sub Worksheet_Change(ByVal Target As Range)
  c = Target.Column: r = Target.Row
  If (c = 3 Or c = 4 Or c = 5 Or c = 6) And Target.Row > 8 Then
Range(Cells(r - 1, "g"), Cells(r - 1, "u")).Copy
Range(Cells(r, "g"), Cells(r, "u")).PasteSpecial (xlPasteFormulas)
  End If
End Sub