在Excel中复制，同时拾取将输入输入输入复制的Excel公式的多行

我是一个VBA的发烧友，我想在下面的公式上得到一些帮助，因为我不知道如何确保公式适用于书中的所有行。如您所见，我已经开始复制实际的代码，但由于我必须对多达100行执行此操作，因此这将过于手动

谢谢

Sub Charts()
    ' Charts Macro
    ' Run charts
    Range("D7").Value = Range("D11")
    Range("E7:G7").Select
    Selection.Copy
    Range("E11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("D7").Value = Range("D12")
    Range("E7:G7").Select
    Selection.Copy
    Range("E12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D7").Value = Range("D13")
    Range("E7:G7").Select
    Selection.Copy
    Range("E13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D7").Value = Range("D14")
    Range("E7:G7").Select
    Selection.Copy
    Range("E14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

---

这就是你想要的吗

Option Explicit

Sub Charts()
    Dim i As Long

    '~~> Change this to the relevant sheet
    With Sheets("Sheet1")
        For i = 11 To 14 '<~~ Change 14 to whatever row you want to go to
            .Range("D7").Value = .Range("D" & i).Value

            .Range("E7:G7").Copy
            .Range("E" & i).PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Next i
    End With
End Sub

选项显式
子图表（）
我想我会坚持多久
“~~>将其更改为相关的工作表
附页（“第1页”）
因为i=11到14'谢谢！正是我需要的