Excel以相同的顺序将数据从一张纸张插入其他纸张

我正在使用下面的代码将数据从一个表插入到其他表。 但是，这个表格似乎被颠倒过来了。 我如何从底层读取而不是顶端

码：

Sub InsertData() Dim dc As Range With Sheets("Open Tickets") For Each dc In Intersect(.Range("J:J"), .UsedRange) If dc.Value2 >= 14 Then dc.Resize(1, 1).EntireRow.Copy Sheets("Dashboard").Rows(6).Insert Shift:=xlDown End If Next End With End Sub 

Answer 1

如果您总是插入第6行之前，将第6行向下移动，则第一个插入将位于第6行，将第6行的旧内容向下移动。 第二个插件也将在第6行，向下移动第一个插件。 第三个插入也将在第6行，向下移动第二个和第一个插入，等等。

你应该有一个行计数器。 像这样：

 Sub InsertData() Dim dc As Range Dim lRow As Long lRow = 6 With Sheets("Open Tickets") For Each dc In Intersect(.Range("J:J"), .UsedRange) If dc.Value2 >= 14 Then dc.Resize(1, 1).EntireRow.Copy Sheets("Dashboard").Rows(lRow).Insert Shift:=xlDown lRow = lRow + 1 End If Next End With End Sub