总表固定列输入数据 ，其他员工姓名的表格固定列生成同样的数的代码

jjip123

求一个总表固定列输入数据 ，其他员工姓名的表格固定列生成同样的数的代码

，员工工作表不固定随时增加减少！

liulang0808

liulang0808

不知道理解是否有出入的

jjip123

liulang0808 发表于 2024-12-23 13:17
不知道理解是否有出入的

谢谢大神，就是要这效果！！

jjip123

jjip123 发表于 2024-12-23 14:20
谢谢大神，就是要这效果！！

改成其他数字就无法使用了

jjip123

jjip123 发表于 2024-12-23 14:56
改成其他数字就无法使用了

想要效果：总表对应的是什么数据 就在其他表相应单元格生成什么数据

ykcbf1100

附件中的代码原来是我写的，那我得看一下。

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()    '//2024.12.23
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("总表")
   
5.     arr = sh.UsedRange
   
6.     For i = 3 To UBound(arr)
   
7.         For j = 2 To 4
   
8.             s = arr(i, 1) & "|" & arr(2, j)
   
9.             d(s) = arr(i, j)
   
10.         Next
    
11.     Next
    
12.     ReDim brr(1 To 100000, 1 To 100)
    
13.     For Each sht In Sheets
    
14.         If sht.Name <> sh.Name Then
    
15.             If sht.UsedRange.Count > 1 Then
    
16.                 arr = sht.UsedRange
    
17.                 r = sht.Cells(Rows.Count, 1).End(3).Row
    
18.                 For j = 2 To 4
    
19.                     For i = 3 To r
    
20.                         s = arr(i, 1) & "|" & arr(2, j)
    
21.                         If d.exists(s) Then
    
22.                             arr(i, j) = d(s)
    
23.                         End If
    
24.                     Next
    
25.                 Next
    
26.                 sht.UsedRange = arr
    
27.             End If
    
28.         End If
    
29.     Next
    
30.     sh.Activate
    
31.     Set d = Nothing
    
32.     Application.ScreenUpdating = True
    
33.     MsgBox "OK！"
    
34. End Sub
    

复制代码

jjip123

ykcbf1100 发表于 2024-12-23 15:29
附件中的代码原来是我写的，那我得看一下。

附件供参考。。。

麻烦帮看一下怎么能实现这个功能！！！！

jjip123

ykcbf1100 发表于 2024-12-23 15:39
参与一下。。。

谢谢！！这一下就可以了！！！！