根據單元格輸入複製並粘貼數據

Question

我正在嘗試基於每個行（列U）的特定列中的值將行從原始圖紙（票據銷售）複製並粘貼到新圖紙（Rachel）。我希望Rachel的所有銷售額都可以複製到另一張紙上。第二張紙的格式沒有變化。這是我到目前爲止有：

Sub CopyRachelDataPaste()  
    Dim i, LastRow 

    'Get Last Row 
    LasRow = Sheets("Ticket Sales").Range("A" & Rows.Count).End(xlUp).Row 
    'Clear Contents 
    Sheets("Rachel").Range("A2:AB3000").ClearContents 

    For i = 2 To LastRow 
     If Sheets("Ticket Sales").Cells(i, "U").Value = "Rachel" Then 
      Sheets("Ticket Sales").Cells(i, "U").EntireRow.Copy Destination:=Sheets("Rachel").Range("A" & Rows.Count).End(xlUp).Offset(1)  
     End If 
    Next i 
End Sub 

Answer 1

必須正確在所有範圍定義

類似的參考表如下：

Option Explicit 

Sub CopyRachelDataPaste() 
    Dim i As Long, lastRow As Long 

    Worksheets("Rachel").Range("A2:AB3000").ClearContents 'Clear Contents 
    With Worksheets("Ticket Sales") '<--| reference ticket worksheet 
     lastRow = .Range("A" & .Rows.Count).End(xlUp).Row '<--| get referenced worksheet column "A" last non empty row  
     For i = 2 To lastRow 
      If .Cells(i, "U").Value = "Rachel" Then .Cells(i, "U").EntireRow.Copy Destination:=Worksheets("Rachel").Range("A" & Worksheets("Rachel").Rows.Count).End(xlUp).Offset(1) 
     Next i 
    End With 
End Sub