|
发表于 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
|
|