Excel VBA替代Hlookup功能的代码怎么写

一切随心走

Excel VBA替代Hlookup功能的代码怎么写?
具体见如下附件：
自己有写个Hlookup代码但是数据量太多运行非常慢：
代码如下，如下代码是否还有精进的空间
Private Sub CommandButton1_Click()
Dim I, a, b, d As Integer
g = Application.WorksheetFunction.Count(Worksheets("DSC600 MTF").Range("C1:C70500"))
d = Application.WorksheetFunction.CountA(Worksheets("DSC600 MTF").Range("D1:AF1"))
For b = 4 To d Step 1
For I = 2 To g Step 1
Worksheets("DSC600 MTF").Cells(I + 1, b) = Application.WorksheetFunction.HLookup(Worksheets("DSC600 MTF").Cells(1, b), Worksheets("JMP汇总后原始数据").Range("A1:RM70500"), I, False)
Next I
Next b
End 新建 Microsoft Excel 工作表 (2).zip (29.36 KB, 下载次数: 25)

2017-9-28 11:56 上传

点击文件名下载附件

Sub

jiaxinl

Private Sub CommandButton1_Click()
Dim arr(), i%, g%, b%, d%
On Error Resume Next
Application.ScreenUpdating = False
With Sheet2
  g = .Cells(Rows.Count, 3).End(xlUp).Row - 3
  d = .Cells(1, Columns.Count).End(xlToLeft).Column - 3
  .[D4:RM70500].ClearContents
  ReDim arr(1 To g, 1 To d)
  For b = 1 To d
    For i = 1 To g
      arr(i, b) = WorksheetFunction.HLookup(.Cells(1, b + 3), Sheet1.Range("A1:RM70500"), i + 1, False)
    Next i
  Next b
.[D4].Resize(g, d) = arr
End With
End Sub

一切随心走

jiaxinl 发表于 2017-9-28 17:17
Private Sub CommandButton1_Click()
Dim arr(), i%, g%, b%, d%
On Error Resume Next

感谢大哥的相助，小弟还是个菜鸟，以后多关照!

一切随心走

jiaxinl 发表于 2017-9-28 17:17
Private Sub CommandButton1_Click()
Dim arr(), i%, g%, b%, d%
On Error Resume Next

再请教下，这个会限制使用处理多少数据量？
我有试了下，数据量太大了好像也是无法运行的，

GUOJIS

大侠，数据稍微多一点时，速度老慢的。能否改下利用数组。谢谢！