Excelmacros中的运行时错误1004：应用程序定义或对象定义的错误

我试图用这个代码来search一张表中的东西，并将其移动到另一张。 以下是我的代码。 我不断收到这个错误：

Run-time error '1004': Application-defined or object-defined error 

码：

 Private Sub CommandButton1_Click() Dim ws As Worksheet, myCounter Dim erow, myValue As Long For Each ws In Sheets If ws.Range("C3").Value > 6 Then myCounter = 1 ws.Select ws.Range("C3").Select myValue = ws.Range("C3").Value Worksheets("Report").Select erow = ActiveSheet.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row ActiveSheet.Cells(erow, 1) = myValue nextValue = MsgBox("Value found in " & ws.Name & Chr(10) & "Continue?", vbInformation + vbYesvbNo, ws.Name & " C3 = " & ws.Range("C3").Value) Select Case nextValue Case Is = vbYes Case Is = vbNo Exit Sub End Select End If Next ws If myCounter = 0 Then MsgBox "None of the sheets contains a " & Chr(10) & "value greater than 6 in cell C3 ", vbInformation, "Not Found" End If End Sub 

为什么我得到这个错误？

  **Run-time error '1004': Application-defined or object-defined error** 

Answer 1

你有x1Up你应该有xlUp ; 注意1而不是小写字母L 此外，MsgBox选项是vbYesNo ，而不是vbYesvbNo 。

 Option Explicit Private Sub CommandButton1_Click() Dim w As Long, bFound As Boolean, nextValue As Variant Dim erow, myValue As Long For w = 1 To Worksheets.Count With Worksheets(w) 'don't look on the Report worksheet If .Name <> Worksheets("Report").Name Then 'use isnumeric to avoid confusing text and numbers If IsNumeric(.Range("C3").Value2) Then If .Range("C3").Value2 > 6 Then Worksheets("Report").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = .Range("C3").Value nextValue = MsgBox("Value found in " & .Name & Chr(10) & "Continue?", vbInformation + vbYesNo, .Name & " C3 = " & .Range("C3").Value) bFound = True Select Case nextValue Case vbYes 'do nothing; continue Case vbNo 'just exit the worksheet loop Exit For End Select End If End If End If End With Next w If Not bFound Then MsgBox "None of the sheets contains a " & Chr(10) & "value greater than 6 in cell C3 ", vbInformation, "Not Found" End If End Sub 

以上是我的代码版本。 习惯使用Option Explicit来避免拼写错误。