下标越界怎么解决？

t395954238

下标越界怎么解决？

t395954238

添加重载数据后，查询这块就出现问题了，急求，怎么解决

6688

Sub LoadData()
     arr = Sheet2.Range("a1").CurrentRegion
End Sub

t395954238

6688 发表于 2018-8-7 14:59
Sub LoadData()
     arr = Sheet2.Range("a1").CurrentRegion
End Sub

解决这个问题，又出现另一个问题。这查询代码有哪里写的不对吗

6688

Private Sub UserForm_Initialize()
'=====================================================
        LoadData     <=                      1st
        ListView1.MultiSelect = True
        ListView1.LabelEdit = lvwManual
'=====================================================
        With Worksheets("簡親萇枍砐醴奪燴桶")
             arr = .Range("a1").CurrentRegion         <= 2st  
        End With

t395954238

1st，2st是什么意思呀，提示语法错误

6688

在 UserForm_Initialize() 第一次已 loaddata()  加入arr
在下4 行又 加入多一次 arr ?
delete 以下幾行吧.
With Worksheets("簡親萇枍砐醴奪燴桶")
             arr = .Range("a1").CurrentRegion         
        End With

t395954238

6688 发表于 2018-8-7 16:43
在 UserForm_Initialize() 第一次已 loaddata()  加入arr
在下4 行又 加入多一次 arr ?
delete 以下幾行 ...

还是不行。试了好多，就是解决不了查询报错的问题。对于我这新手，解决bug问题太难了，求解决查询报错问题