[已解决]点击查询获取页面内容 ，总是提示下标越界，请老师帮忙解决

admin321

点击查询获取页面内容  ，总是提示下标越界，请老师帮忙解决

11111111.rar (12.15 KB, 下载次数: 8)

2011-11-3 18:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

win9

2011-11-4 12:44

回复 admin321 的帖子

兄弟上次你的问题，mxg825、上清宫主、两位老师已经解决了。

http://www.excelpx.com/thread-206524-1-1.html
Sub AA333()

Dim X%, Y%, Z%, M%, K%, G&, D
Set D = CreateObject("Scripting.Dictionary")
With Sheets("发发发")
    Y = .Range("E65536").End(3).Row
    ReDim ARR1(1 To Y - 2, 1 To 4)
    arr = .Range("E3:E" & Y + 1)
       For Z = 2 To Sheets.Count
           D.Add Sheets(Z).Range("B2").Value, Z
       Next Z
    For K = 1 To UBound(arr) - 1      
G = D.Item(arr(K, 1))
        For M = 1 To 4
         Set C = Sheets(G).Range("A1:I65536").Find(.Cells(2, 5 + M), SearchFormat:=True)
           If C Is Nothing Then
              ARR1(K, M) = ""
           Else
              ARR1(K, M) = C.Offset(, 1).Value
          End If
        Next M
    Next K
.Range("F3:I" & Y) = ARR1
End With
End Sub

跳转到最佳答案楼层

studyexcel

回复 admin321 的帖子

你找你昨天那帖子，不是有高手已经帮你改了吗

admin321

回复 studyexcel 的帖子

昨天？没有发帖啊

studyexcel

回复 admin321 的帖子

{:041:}难道是你同事发的，内容都一样

win9

回复 admin321 的帖子

兄弟上次你的问题，mxg825、上清宫主、两位老师已经解决了。

http://www.excelpx.com/thread-206524-1-1.html
Sub AA333()

Dim X%, Y%, Z%, M%, K%, G&, D
Set D = CreateObject("Scripting.Dictionary")
With Sheets("发发发")
    Y = .Range("E65536").End(3).Row
    ReDim ARR1(1 To Y - 2, 1 To 4)
    arr = .Range("E3:E" & Y + 1)
       For Z = 2 To Sheets.Count
           D.Add Sheets(Z).Range("B2").Value, Z
       Next Z
    For K = 1 To UBound(arr) - 1      
G = D.Item(arr(K, 1))
        For M = 1 To 4
         Set C = Sheets(G).Range("A1:I65536").Find(.Cells(2, 5 + M), SearchFormat:=True)
           If C Is Nothing Then
              ARR1(K, M) = ""
           Else
              ARR1(K, M) = C.Offset(, 1).Value
          End If
        Next M
    Next K
.Range("F3:I" & Y) = ARR1
End With
End Sub

admin321

回复 win9 的帖子

哈哈谢谢！