|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
A表有7000多行数据,单纯用VLOOKUP很慢,希望用数组能快速匹配提高效率,但不能运行(系统显示下标越界),请老师指点,谢谢
代码如下:Sub a()
Dim ARR3()
X = Range("A1").CurrentRegion.Rows.Count
ARR1 = Range("A2:A" & X)
Set wb = Workbooks.Open(ThisWorkbook.Path & "/B.xlsx")
ARR2 = wb.Sheets("Sheet1").Range("A2:B3") ‘B表信息装入数组
ReDim ARR3(1 To Range("d65536").End(xlUp).Row, 1 To 1)
For I = 1 To UBound(ARR1)
ARR3(I, 1) = Application.VLookup(ARR1(I, 1), ARRY2, 2, 0)
Next I
End sub |
-
-
1.rar
21.21 KB, 下载次数: 276
|