把D列数字24修改大于24代码出错

chxw68

baigangliao 发表于 2018-1-5 09:04
老师早上好：我想把g12:l12。修改为g12:l13.怎么修改一下呢

你把文件传上来。

chxw68

猜测着修改的。

chxw68

1. Sub test5()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     arr = .Range("g12:l13")
   
8.     For i = 1 To UBound(arr)
   
9.       ss = ""
   
10.       For j = 1 To UBound(arr, 2)
    
11.         If Len(arr(i, j)) <> 0 Then
    
12.           ss = ss & "," & arr(i, j)
    
13.         End If
    
14.       Next
    
15.       ss = Mid(ss, 2)
    
16.       d(ss) = ""
    
17.     Next
    
18.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
19.     .Range("a1:a" & r).Font.ColorIndex = 0
    
20.     arr = .Range("a1:a" & r)
    
21.     For i = 1 To UBound(arr)
    
22.       If d.exists(arr(i, 1)) Then
    
23.         .Cells(i, 1).Interior.ColorIndex = 6
    
24.       End If
    
25.     Next
    
26.   End With
    
27. End Sub
    

复制代码

chxw68

详见附件。