excel - 下标超出范围

Question

我正在尝试了解为什么会遇到此问题。

Private Sub test()

Dim Row As Integer

For Row = 1 To 100

   'Loop through SummaryRange and ignore blanks but get document type'
    Dim documentTypes As String

    Dim myDocument As String, Column As Integer

    Column = 2

   'First get range from Summary'
    Sheets("Sheet1").Active

    If ActiveSheet.Cells(Row, Column).Value <> "" Then documentTypes = documentTypes + "," + ActiveSheet.Cells(Row, Column).Value

    Sheets("Sheet12").Active

    ActiveSheet.Range("B17").Value = documentTypes

Next Row

End Sub

我试图循环遍历不同工作表中的范围，然后获取值，然后将它们连接成一个字符串并输出该字符串。

编辑:

删除了 SummaryRange，解决了超出范围的问题，但出现了对象不支持此属性或方法

Answer 1

尝试改变:

 Sheets("Sheet1").Active

致:

 Sheets("Sheet1").Activate

同样适用于:

 Sheets("Sheet12").Active