excel - 如何使用 VBA 确定将数据从一个工作表粘贴到另一个工作表的位置？

Question

该代码将信息粘贴到一个新的工作表中。

它出现在原始文件中的任何行都是它出现在新工作表中的位置。

如何粘贴到新工作表的开头？

Sub CloverLeafLocal048488()
    Dim xRg As Range
    Dim XCell As Range
    Dim A As Long
    Dim B As Long
    A = Worksheets("OriginalDataPull").UsedRange.Rows.Count
    B = Worksheets("CloverLeafLocal-048488").UsedRange.Rows.Count
    If B = 1 Then
        If Application.WorksheetFunction.CountA(Worksheets("CloverLeafLocal-048488").UsedRange) = 0 Then B = 0
    End If
    Set xRg = Worksheets("OriginalDataPull").Range("X1:X" & A)
    On Error Resume Next
    Application.ScreenUpdating = False

    For X = 1 To xRg.Count
        If CStr(xRg(X).Value) = "048488" Then
            xRg(X).EntireRow.Copy Destination:=Worksheets("CloverLeafLocal-048488").Range("A" & X + 1)
            B = X + 1
        End If
    Next
    Application.ScreenUpdating = True

End Sub

标签： excelvbacopypaste