用VBA自动填充另一个工作簿中的数据

alex-ww · 发表于 2021-1-27 21:37

alex-ww · 发表于 2021-1-27 21:40

本帖最后由 alex-ww 于 2021-1-28 09:58 编辑

数据太大，到时还要引用多个工作簿的数据，不想用函数处理到时速度太慢了，电脑会卡死，望各位朋友帮忙解决

alex-ww · 发表于 2021-1-27 21:41

姓名条件那里可能为空

alex-ww · 发表于 2021-1-27 21:42

请好心人把代码发上来给小弟学习

憋者神鳖 · 发表于 2021-1-27 22:38

刚学到数组，思路是不是把数据存到数组里，再把数组引用到新表格中？？等大神代码。

3190496160 · 发表于 2021-1-28 09:37

alex-ww 发表于 2021-1-27 21:41
姓名条件那里可能为空

1，已经发了金20个主题了，应该是知道求助要上传附件了呀
2，姓名条件可能为空，那么，在姓名为空的情况下，根据什么来查询呢？？

alex-ww · 发表于 2021-1-28 09:58

3190496160 发表于 2021-1-28 09:37
1，已经发了金20个主题了，应该是知道求助要上传附件了呀
2，姓名条件可能为空，那么，在姓名为空的情况 ...

已上传附件，谢谢

alex-ww · 发表于 2021-1-28 10:03

alex-ww 发表于 2021-1-28 09:58
已上传附件，谢谢

原来的要引用的表格数据有几万行，上传的附件我删了很多，所以想用VBA解决，不然电脑会卡死

3190496160 · 发表于 2021-1-28 10:21

Sub 数据匹配()
Application.ScreenUpdating = False
Dim d As Object
Dim ar As Variant, br As Variant
Set d = CreateObject("scripting.dictionary")
f = Dir(ThisWorkbook.Path & "\工单印刷资料明细2016-2020.xls*")
If f = "" Then MsgBox "找不到工单印刷资料明细2016-2020文件": Exit Sub
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
br = wb.Worksheets(1).[a1].CurrentRegion
For i = 2 To UBound(br)
If Trim(br(i, 1)) <> "" Then
      d(Trim(br(i, 1))) = i
End If
Next i
wb.Close False
With Sheets("产品入库明细表2020")
r = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("ag2:ag" & r) = Empty
.Range("aj2:aj" & r) = Empty
ar = .[a1].CurrentRegion
For i = 2 To UBound(ar)
      If Trim(ar(i, 5)) <> "" Then
         n = d(Trim(ar(i, 5)))
         If n <> "" Then
            ar(i, 33) = br(n, 7)
            ar(i, 36) = br(n, 15)
         End If
      End If
Next i
.[a1].CurrentRegion = ar
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2021-1-28 10:21

例子.rar (207.46 KB, 下载次数: 61)

		自动登录	找回密码
密码			免费注册