下标超出范围，VBA

Question

所以我有这行代码

Dim j As Long, i As Long
j = 18

For i = 3 To 47
    If ThisWorkbook.Sheets("Skills").Range("E" & i) > 0 Then
        ThisWorkbook.Sheets("MainPage").Range("B" & j) = ThisWorkbook.Sheets("Skills").Range("B" & i)
            j = j + 1
    End If
Next

End Sub

我的问题如下， 首先在If .... 行我有对象需要错误，现在我修复了（我想）但现在在下一行sheetSkills("B" & j).... 我得到下标超出范围错误。有人有什么想法吗？实在想不通

Answer 1

1. 也许您的代码正在寻找另一本书？试试ThisWorkbook.Sheets
2. 添加Option Explicit 以强制变量声明（尽管这不是问题的根源）
3. 最后，价值转移应该是Range.Value = Range.Value

我能看到的唯一其他错误是您的工作表名称不完全匹配。我运行这段代码没有问题（和你的）。如果您的实际工作表名称有一个滞后空格或其他一些乍一看并不明显的字符，这将给您Subscript Out of Range，因为这需要精确匹配。

---

Sub Skills()

Dim j As Long, i As Long
j = 18

For i = 3 To 47
    If ThisWorkbook.Sheets("Skills").Range("E" & i) > 0 Then
        ThisWorkbook.Sheets("MainPage").Range("B" & j).Value = ThisWorkbook.Sheets("Skills").Range("E" & i).Value
            j = j + 1
    End If
Next

End Sub

---

您可以使用它来测试您的工作表名称是否被找到。如果这些行中的任何一行出错，则意味着 VBA 无法在您的书中找到该工作表。

Sub Test()

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Skills")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("MainPage")

End Sub