填充工作表/修订版

Question

我对下面的代码有问题。在第130行，我需要插入与J中的值相等的空白行。代码现在插入的空白行等于J，但从J行开始。我需要从k行开始，然后插入J的空白行。我如何定义起始行和空白行数？

70    j = ws1.Cells(ws1.Rows.Count, "E").End(xlUp).Row
80    k = 2
90    x = 1
100   Do While x < j
110       With ws2
120           If j > 0 Then
              'Insert J number of rows starting on row = k
130               .Rows(j).Resize(LastRow).Insert
140                   For i = 2 To rngtocopy.Rows.Count
150                       With ws2.Range("K" & k)
160                           .Offset(0, 0).Value = rngtocopy(i, 1)
170                           .Offset(0, 1).Value = rngtocopy(i, 2)
180                       End With
190                       k = k + 1
200                   Next i
210           End If
220       End With
230   x = x + 1
240   Loop

Answer 1

我不知道我是否正确理解你的问题，但试试这个：

Set ws1 = Sheets("Calc")
Set ws2 = Sheets("Dealer Orders")
LastRow = ws1.Cells(ws1.Rows.Count, "E").End(xlUp).Row
Set rngtocopy = ws1.Range("E2", ws1.Cells(LastRow, "F"))
For i = 1 To rngtocopy.Rows.Count
    With ws2.Range("K2")
        .Resize(, 2).Insert xlDown
        .Offset(-1, 0).Value = rngtocopy(i, 1)
        .Offset(-1, 1).Value = rngtocopy(i, 2)
    End With
Next

这是你想做的吗？HTH。