VBA Excel +使用匹配功能

Question

我在一段代码中遇到了某种问题。 我需要在Excel书中找到值，然后将其复制到另一本书中。 问题是我需要在正确的位置逐个概念地复制它。 问题在于文件并非每周都以相同的顺序出现。 因此，我需要找到该概念，然后复制该概念值的下一个单元格。 首先，我需要找到正确的行，以便可以开始复制（这部分很容易完成）。 其次，在正确的行上，我需要找到概念，在本示例中，我将使用“ 619”。 找到该值的位置后，我将该值存储在“ c_audiovisual”中。

 On Error GoTo ErrhandlerCAV
         lRowC_AV = Application.WorksheetFunction.Match(619, Range("A" & line & ":FI" & line), 0) + 1

       'On Error GoTo ErrhandlerCAV
Continue:
        If errorCAV = 1 Then
                c_audiovisual = 0
                errorCAV = 0
        Else
                c_audiovisual = ActiveSheet.Cells(line+ m2, lRowC_AV).Value
        End If

万一该行中不存在此概念（有时会发生），我已经进行了转义。

有时这段代码行得通，而其他的则行不通。 当我处于调试模式（按F8）时，它可以工作。 当我使用小文件查找其值时。 在较大的文件上有时不这样做。

有任何想法吗？

Answer 1

我遇到了类似的问题。 我使用Match函数中的ThisWorkbook.Sheets（“ MySheet”）。Range（...）修复了该问题。 或尝试使用ActiveWorkbook（如果适用）。 让我知道这是否有效。 好奇地知道。

顺便说一句，我注意到列号和行号都是“行”。 那是个错误吗？