Excelmacros切割行并粘贴到另一个工作表

我试图得到一个macros，从列表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