Excel宏將剪切行並粘貼到另一個工作表

Question

我試圖讓一個宏將表ASR中的某些行剪切和粘貼到表LS，只要列I等於LS。

Sub MoveLS() 
    Dim i As Variant 
    Dim endrow As Integer 

    endrow = Sheets("ASR").Range("A" & Rows.Count).End(xlUp).Row 
    For i = 2 To endrow 
    If Cells(i, "I").Value = "LS" Then 
     Cells(i, "I").EntireRow.Cut Destination:=Sheets("LS").Range("A" & Rows.Count).End(xlUp).Offset(1) 
      End If 
    Next 

End Sub 

我在打開和關閉該代碼的不同變化一直盯着過去8小時，無法弄清楚什麼是行不通的。任何提示都表示讚賞！

Answer 1

這是因爲你還沒有宣佈你的牀單。試試以下代碼：

Sub MoveLS() 
    Dim i As Variant 
    Dim endrow As Integer 
    Dim ASR As Worksheet, LS As Worksheet 

    Set ASR = ActiveWorkbook.Sheets("ASR") 
    Set LS = ActiveWorkbook.Sheets("LS") 

    endrow = ASR.Range("A" & ASR.Rows.Count).End(xlUp).Row 

    For i = 2 To endrow 
     If ASR.Cells(i, "I").Value = "LS" Then 
      ASR.Cells(i, "I").EntireRow.Cut Destination:=LS.Range("A" & LS.Rows.Count).End(xlUp).Offset(1) 
     End If 
    Next 
End Sub