|
楼主 |
发表于 2019-6-11 14:10
|
显示全部楼层
各位老师:
表格中包含VBA代码如下:(此VBA只能提取前20列的数据,多于20列数据时就无能为力了。恳请老师升级VBA)
Option Explicit
Sub test()
Dim ar, br, sh As Worksheet, d As Object, i&, k&, s$
br = Sheets("数据区").Range("U4:Ao" & Cells(Rows.count, "dq").End(3).Row)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(br)
s = br(i, 1)
d(s) = i
Next
ar = Sheets("结果区").Range("C4:cy" & Cells(Rows.count, "Cy").End(xlUp).Row)
For i = 1 To UBound(ar)
s = ar(i, 1)
If d.exists(s) Then
For k = 2 To UBound(br, 2)
ar(i, k) = br(d(s), k)
Next
End If
Next
Sheets("结果区").Range("C4:cy" & Cells(Rows.count, "Cy").End(xlUp).Row) = ar
Set d = Nothing
End Sub
|
|