工作薄单元格名称相同赋相同颜色

c1988138

工作簿表格数量及名称[可重命名]不受限制
希望其他表格，如果出现了表1，单元格中的相同的名称，则把表1单元格中的背景颜色赋给其他表格中相同名称的单元格。
怎么去命名定位到怎么工作簿表格，才能做到上面的功能。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.19
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     With sh
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         For i = 1 To r
   
8.             Set Rng = .Cells(i, 1)
   
9.             s = Rng.Value
   
10.             d(s) = Rng.Interior.ColorIndex
    
11.         Next
    
12.     End With
    
13.     For Each sht In Sheets
    
14.         If sht.Name <> sh.Name Then
    
15.             With sht
    
16.                 For Each rn In .UsedRange
    
17.                     s = rn.Value
    
18.                     If d.exists(s) Then
    
19.                         rn.Interior.ColorIndex = d(s)
    
20.                     End If
    
21.                 Next
    
22.             End With
    
23.         End If
    
24.     Next
    
25.     Set d = Nothing
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "OK！"
    
28. End Sub
    

复制代码

ykcbf1100

附件供参考。。。