Excel вставка данных с одного листа на другой в том же порядке

Question

Я использую приведенный ниже код для вставки данных с одного листа на другой. Однако таблица, похоже, отменена. Как я прочитал его снизу вверх, а не верхней нижней

Код:

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