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

枫丹白露

wxxydl 发表于 2023-1-3 22:40
我给你简单地做了一个

我添加了工作表代号大于9的代码，就不刷新了
能帮我看下，是哪里不对吗

For Each sh In Worksheets
st = sh.CodeName '工作表代号
nm = Split(st, "eet")(1) '从eet后第1位开始提取数字
        
If nm > 9 Then '大于9的所有工作表，为产量表

                 sh.Select
                  lastrow = sh.Cells.Find("*", , , , xlByRows, xlPrevious).Row - 1
                  arr = Range("A5:G" & lastrow)
                  For i = 2 To UBound(arr)
                        If Len(arr(i, 6)) Then
                              If dic.Exists(arr(i, 6)) Then
                                    For j = 1 To 7
                                          If dic(arr(i, 6)).Exists(arr(1, j)) Then
                                                arr(i, j) = dic(arr(i, 6))(arr(1, j))
                                          End If
                                    Next
                              End If
                        End If
                  Next
                  Range("A5:G" & lastrow) = arr
            End If
      Next

shiruiqiang

枫丹白露 发表于 2023-1-3 23:17
谢谢，可以是可以，但是我无法修改产量表的名称的，假如我把产量表名称修改为员工姓名，就不能用了

修改为：If InStr(ff.Name, "数据") =0 Then

ykcbf1100

参与一下。

wxxydl

枫丹白露 发表于 2023-1-3 23:49
我添加了工作表代号大于9的代码，就不刷新了
能帮我看下，是哪里不对吗

把你的原文件发出来  可以模拟数据

枫丹白露

ykcbf1100 发表于 2023-1-4 08:41
参与一下。

谢谢，明天我运行一下

枫丹白露

wxxydl 发表于 2023-1-4 10:52
把你的原文件发出来  可以模拟数据

原文件是这个，请帮我看一下，我修改添加部分代码后，就不会刷新数据了

wxxydl

我只改了一下

ω逆鳞々

请参考.......................

于箱长

枫丹白露 发表于 2023-1-4 22:10
谢谢，明天我运行一下

ykcbf1100老师给你的代码有啥问题？

你地铁图

拿去用-------------------------------------