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