为什么会出现此运行时错误？

Question

在编码方面非常新颖，并在此处首次发表。 我到处搜索，但是找不到我的代码出了什么问题。 基本上，我试图从另一本工作簿上的数据计算出一些平均值。 当我运行以下代码“运行时错误1004，应用程序定义的错误或方法定义的错误”时遇到的错误似乎是从我引用其他工作簿以执行Match方法的那一行生成的。 看来它应该对我有用，但错误提示不对……谢谢您的帮助

Private Sub CommandButton1_Click()
Dim wbk As Workbook
Set wbk = Workbooks.Open("X:\Data Analysis\Process & Wall Loss Data Analysis\***** CT 12 HR AVG rev2.xlsm")
Dim nrow As Integer, conv_start As Double, conv_end As Double, avg1 As Double, avg2 As Double
nrow = Cells(9, 12)
For i = 1 To nrow
    conv_start = Application.VLookup(Cells(14 + i, 12), Range(Cells(3, 2), Cells(300, 3)), 2, True)
    conv_end = Application.VLookup(Cells(14 + i, 13), Range(Cells(3, 2), Cells(300, 3)), 2, True)
    avg1 = Application.Match(conv_start, wbk.Worksheets("PC & Wear").Range(Cells(1, 1), Cells(626, 1)), 1)
    avg2 = Application.Match(conv_end, wbk.Worksheets("PC & Wear").Range(Cells(1, 1), Cells(626, 1)), 1)
    For j = 1 To 40
        Cells(42 + j, 11 + i) = Application.Average(Range(Cells(avg1, 1 + j), Cells(avg2, 1 + j)))
    Next j
Next i

结束子

Answer 1

wbk.Worksheets("PC & Wear").Range(Cells(1, 1), Cells(626, 1))

在这里， Cells()将引用活动工作表，而不是其他工作簿中的工作表，因此，只要“ PC＆Wear”不是活动工作表，代码就会失败。

您应该使用工作表对象完全限定Range()和Cells()所有用法：

Dim sht As Worksheet
Set sht = wbk.Worksheets("PC & Wear")
'...
avg1 = Application.Match(conv_start, sht.Range(sht.Cells(1, 1), sht.Cells(626, 1)), 1)
'...

请注意，即使在您希望使用ActiveSheet的情况下，也最好这样做-稍后，您可能会进一步开发代码并最终使其他工作表处于活动状态，并且代码会中断（或更糟糕的是，它仍然可以工作，但是会产生错误的输出）。

进一步的改进是定义一个范围变量，以避免重复您自己：

Dim rngLU As Range
Set rngLU  = wbk.Worksheets("PC & Wear").Range("A1:A626")
'...
avg1 = Application.Match(conv_start, rngLU, 1)
'...