活动列元素的下标超出范围错误

Question

我正在尝试编写代码来查看（“输入工作表”）中活动列中的行是否与不同工作表（“Sheet2”）中某个范围内的单元格的内容相匹配。

如果内容匹配，代码将直接获取 ("Sheet2") 中单元格右侧的单元格内容，并将其放入 ("Input Sheet") 中活动列的第 39 行。

我知道这很可能与代码的范围部分有关，但我并没有真正找到解决方案。

任何帮助将不胜感激。

Sub yellowgrey()

Dim y As Range

With y = Sheets("Sheet2").Range(Cells(2, 1), Cells(131, 1))



If Sheets("Input Sheet").Cells(38, ActiveCell.Column).Value = Sheets(“Sheet2”).Cells(y, 1) Then


Sheets("Input Sheet").Cells(39, ActiveCell.Column) = Sheets("Sheet2").Cells(y, 2)


End If

End With


End Sub

Answer 1

正如 cmets 中提到的，您需要限定对ActiveSheet 和ActiveWorkbook 的隐式引用。 Rubberduck（免责声明：我积极参与了这个 [免费和开源] VBE 插件的开发）会发现这个问题：

成员“单元格”隐式引用 ActiveSheet

这意味着：

Sheets("Sheet2").Range(Cells(2, 1), Cells(131, 1))

真的是这样做的：

ActiveWorkbook.Sheets("Sheet2").Range(ActiveSheet.Cells(2, 1), ActiveSheet.Cells(131, 1))

当 Sheet2 不是活动工作表时，这就是您的代码崩溃的方式。

---

还有这些其他问题：

我想提请您注意局部变量'“Sheet2”'未声明检查结果。请注意，双引号被解析为标识符名称的一部分 - 您出于某种原因使用了大引号。 VBA 字符串文字必须用 ASCII 34 分隔，即" - 其他任何内容都不会作为字符串文字分隔符。

变量y是Range，它的引用需要用Set关键字赋值。

With ThisWorkbook.Worksheets("Sheet2")

    Set y = .Range(.Cells(2, 1), .Cells(131, 1)    
    '...

End With

当你以后像这样使用y 时：

Sheets("Sheet2").Cells(y, 2)

您正在传递y 表示的单元格/范围的值，因为.Cells 调用将y 参数作为RowIndex 参数，并且由于@987654339 @ 是一个Range，VBA 隐式获取它的默认属性（即Range.Value），这使得赋值完全依赖于y 包含的内容......除了y 不只是一个单元格，因此完全不清楚您要在这里实现什么。

Answer 2

谢谢大家，在你们的帮助下，我已在下面修复它：

Sub yellowgrey()

Dim hh As Long

With Sheets("Sheet2")
    For hh = 2 To 131 Step 1
        If Sheets("Input Sheet").Cells(38, ActiveCell.Column).Value = Sheets("Sheet2").Cells(hh, 1) Then
            Sheets("Input Sheet").Cells(39, ActiveCell.Column) = Sheets("Sheet2").Cells(hh, 2)
        End If
    Next hh
End With

End Sub

目标是遍历 (Sheet2) 的第 1 列中的数据并查看它是否与 (Input Sheet) 中特定单元格的内容匹配，如果匹配则执行操作。

干杯