Question

此代码产生“找不到对象”错误。

Sub Button86_Click()
    Dim Y As Integer
    Dim i As Integer
    Dim LastRow As Long

    Y = 2
    Worksheets("Abnormal").Activate

    With ActiveSheet
        LastRow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
    End With

    Sheets("Abnormal").Rows(1).Copy Destination:=Sheets("Ab_IT").Rows(1)
    For i = 2 To LastRow
        If Abnormal.Cells(i, 11).Value = "IT" Then
            Sheets("Abnormal").Rows(i).Copy Destination:=Sheets("Ab_IT").Rows(Y)
            Y = Y + 1  
        End If
    Next i

    Worksheets("Ab_IT").Activate

    With ActiveSheet.UsedRange
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With

    Application.CutCopyMode = False
    Worksheets("Ab_IT").Columns("A:J").AutoFit
End Sub

**错误行 - 如果Abnormal.Cells（i，11）.Value =“IT”那么详细信息 - 有两张纸。异常和Ab_IT。在异常表中，有一列（11），有时包含“IT” 我试图将包含IT的所有行复制到另一张表Ab_IT。但是没有定义错误对象。

Answer 1

我没有看到在此行之前定义的变量'Abnormal'：

If Abnormal.Cells(i, 11).Value = "IT" Then

也许你的意思是：

If Sheets("Abnormal").Cells(i, 11).Value = "IT" Then

找不到对象错误。如何解决？

1 个答案: