Excel宏在粘贴到其他工作表时重复多行数据

我已经为我的项目做了一份计算书。此工作表有多个输入。其中一个变量是i，它会改变结果。更改i更改

缺少的Num

工作表中所需的行值。我的目标是为每个i将该行值从

Sheet 1

复制并粘贴到

Missing Num

我已经编写了用于复制和粘贴的代码，但出于某些原因，它会重复值。请调查这个错误。附件是截图

Sub AddBigNumbers_1()
'Worksheets("Input Sheet").Range("B4:F4").Merge
'Range("B4").Value = "i=1"
Dim i As Integer, j As Integer, i_max As Integer, j_max As Integer, k As Integer, i_min As Integer, l As Integer
'Call OptimizeCode_Begin
i = 0
j = 0
i_max = Range("D8").Value 'Max value of i that can be entered
j_max = 31 'Range of columns - 6 Num to 36 Num
i_min = Range("D5")
k = 0
For i = i_min To i_max Step 1
    Worksheets("Missing Num - Selec Pt").Range("C5").Value = Worksheets("Missing Num - Selec Pt").Cells(i + 3, 5).Value   'A3 cell is in which i value is stored

        Application.Calculation = xlCalculationManual
        Application.ScreenUpdating = False
        Application.DisplayStatusBar = False
        Application.EnableEvents = False                  
            For j = 1 To j_max Step 1
                Worksheets("Missing Num - Selec Pt").Cells(3 + i, 5 + j).Value = Worksheets("Sheet1").Cells(40, 3 + j).Value
                'RHS is original strip from which data has to be extracted & LHS where data has to be entered
            Next j
        Application.EnableEvents = True
        Application.DisplayStatusBar = True
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        k = 0
Next i[Screenshot][1]
End Sub

---

屏幕截图链接-出于某种原因，屏幕截图未被发布。只是为了确保，您知道：“.Cells（i+3,5）.Value”在“E”列中循环，对吗？只是为了确保

i_min=Range（“D5”）

是

i_min=Range（“D5”）。值2

，不是吗？