如果符合条件，则将行移到另一个工作表

如果单元格相当于迪斯尼奥兰多，我想移动到工作表New或全新的工作表。 截至目前.Rows正在导致一个错误。

Sub finddisneys() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook Set ws1 = wb.Sheets("April") Set ws2 = wb.Sheets("alljobs") Set ws3 = wb.Sheets("New") i = ws1.Cells(Rows.Count, 2).End(xlUp).Row For i = z To 2 Step -1 If ws1.Cells(i, 2) = "Disney Orlando" Then .Rows(i).Copy Destination:=ws3.range("A") End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub 

Answer 1

只需要在代码上做一些“家务”：

 Sub finddisneys() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook Set ws1 = wb.Sheets("April") Set ws2 = wb.Sheets("alljobs") Set WS3 = wb.Sheets("New") i = ws1.Cells(ws1.Rows.Count, 2).End(xlUp).row ' Added ws1 before "Rows" for clarity For i = z To 2 Step -1 If ws1.Cells(i, 2) = "Disney Orlando" Then ws1.Rows(i).copy Destination:=WS3.Range("A") ' Added ws1, since you didn't have `With` anywhere. End If Next i ' Need this to continue the loop Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub 

编辑：啊，我看到斯科特和杰普德已经全部结束了。