相同的填充颜色

shaorenjun888

相同的填充颜色

liulang0808

楼主这个就是一个逐行逐列遍历吧

shaorenjun888

liulang0808 发表于 2019-6-26 22:43
楼主这个就是一个逐行逐列遍历吧

老师能否帮忙出手解答下

蓝桥玄霜

相同代码：

shaorenjun888

蓝桥玄霜 发表于 2019-6-27 09:54
相同代码：

您好，版主老师：
1.代码会把0与空格的混为一样，空格与0是不同的。（比如选取内容只空格与0时）
2.如何同时作用于sheet1-sheet6表。

liulang0808

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     Set Rng = Application.Intersect(Target, Sh.Range("c66:bez126"))
   
3.     If Rng Is Nothing Then
   
4.         Exit Sub
   
5.     End If
   
6.     arr = Rng
   
7.     Application.ScreenUpdating = False
   
8.     For Each sht In Sheets
   
9.         For Each Rng In sht.Range("c66:bez126")
   
10.             For j = 1 To UBound(arr)
    
11.                 For i = 1 To UBound(arr, 2)
    
12.                     If Rng.Offset(j - 1, i - 1) <> arr(j, i) Then
    
13.                         GoTo l1
    
14.                     End If
    
15.                 Next i
    
16.             Next j
    
17.             Set rng1 = Rng.Resize(UBound(arr), UBound(arr, 2))
    
18.             If rng1.Address = Application.Intersect(rng1, sht.Range("c66:bez126")).Address Then
    
19.                 rng1.Interior.ColorIndex = 6
    
20.             End If
    
21. l1:
    
22.         Next Rng
    
23.     Next sht
    
24.     Application.ScreenUpdating = True
    
25. End Sub
    

复制代码

liulang0808

附件内容供参考