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

Excel以相同的顺序将数据从一张纸插入到另一张纸中

1 个答案: