求代码：利用数组+字典 进行数据的匹配

你地铁图

拿去用吧  闪电速度

mmwwdd

mmwwdd

Sub test()
Dim cnn As Object
Dim rs As Object
Dim sht As Worksheet
Dim MySQL As String
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='Excel 12.0;HDR=yes;IMEX=0';data source=" & ThisWorkbook.FullName
For Each sh In Sheets
If sh.Name <> "数据" Then
MySQL = "update [数据$a5:k]a,[" & sh.Name & "$a5:g]b " _
& "set b.产量系数=a.产量系数,b.废品系数=a.废品系数,b.工序=a.工序,b.分类=a.分类 where a.工时简称=b.工时简称"
rs.Open MySQL, cnn, 1, 3
MySQL = ""
End If
Next

End Sub

枫丹白露

wxxydl 发表于 2023-1-6 12:14
我只改了一下

你好，可以了。
但我把代码复制到我的原表里，有50张工作表的，就又不刷新了
不知道代码哪里还有问题

枫丹白露

你地铁图 发表于 2023-1-7 23:49
拿去用-------------------------------------

谢谢，代码加密了，我无法复制出来。我原工作簿有50张工作表，要在原工作簿上运行代码才可以

枫丹白露

ω逆鳞々 发表于 2023-1-7 16:22
请参考.......................

代码运行速度很快，谢谢

你地铁图

枫丹白露 发表于 2023-1-8 16:25
谢谢，代码加密了，我无法复制出来。我原工作簿有50张工作表，要在原工作簿上运行代码才可以

1234567890