Question

所以这个代码是在excel 2013中制作的，我必须使用的工作站在2003上运行。在2013年它运行得很好，当它在2003年它返回＆＃34;运行时错误＆＃34 ; 9＆＃34;下标超出范围＆＃34;。如果有人可以帮我解决这个问题，我会很感激。似乎问题在于这一点数据

Set wsSheet = Worksheets("Sheet1")

 With wsSheet
     Set rnData = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
 End With"

再次感谢您的帮助。

`Private Sub UserForm_Initialize()
 Dim wsSheet As Worksheet
 Dim rnData As Range
 Dim vaData As Variant
 Dim ncData As New VBA.Collection
 Dim lnCount As Long
 Dim vaItem As Variant

 Set wsSheet = Worksheets("Sheet1")

 With wsSheet
     Set rnData = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
 End With

 vaData = rnData.Value

 On Error Resume Next
     For lnCount = 1 To UBound(vaData)
     ncData.Add vaData(lnCount, 1), CStr(vaData(lnCount, 1))
 Next lnCount
 On Error GoTo 0

 With ComboBox1
     .Clear
     For Each vaItem In ncData
         .AddItem ncData(vaItem)
     Next vaItem
 End With
 End Sub

 Private Sub CommandButton1_Click()
Dim c As Range
 With Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
     Set c = .Find(ComboBox2.Value, LookIn:=xlValues)
     c.Activate
     ActiveCell.EntireRow.Copy
     Sheets("Sheet2").Select
     RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
     Range("a" & RowCount + 1).Select
     ActiveSheet.Paste
     Application.CutCopyMode = False
 End With
 Sheets("Sheet1").Select
 Range("a1").Select
 Unload Me
End Sub


Private Sub ComboBox1_Change()

Dim cell As Range
Me.ComboBox2.Clear
For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
 If cell.Value = Me.ComboBox1 Then
     Me.ComboBox2.AddItem (cell.Offset(0, 1).Value)
 End If
Next cell
Me.ComboBox2.ListIndex = 0

End Sub`

Answer 1

可能是这个错字（你错过了两个范围之前的点）：

 With wsSheet
     Set rnData = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
 End With

正如rory在上面的评论中指出的那样，检查你是否正在寻找正确的工作簿。也许添加这个是安全的：

 Set wsSheet = ThisWorkbook.Worksheets("Sheet1")

Runtime Erro＆＃34; 9＆＃34;下标超出范围

1 个答案: