[已解决]根据某单元格填充颜色标注首行与首列

sixnu

根据某单元格填充颜色标注首行与首列，具体可能说不清楚，上附件很清楚

最佳答案

月排行榜 / 总排行榜

xdragon

2013-11-19 22:29

1. Sub t()
   
2. Dim arr(), rng As Range, i As Long, j As Long
   
3. arr = Sheets("sheet1").Range("A1").CurrentRegion.Value
   
4. For i = 1 To UBound(arr)
   
5.   For j = 1 To UBound(arr, 2)
   
6.     If Len(arr(i, j)) = 0 Then
   
7.       If rng Is Nothing Then
   
8.         Set rng = Union(Cells(i, j), Cells(i, 1), Cells(1, j))
   
9.       Else
   
10.         Set rng = Union(rng, Cells(i, j), Cells(i, 1), Cells(1, j))
    
11.       End If
    
12.     End If
    
13.   Next
    
14. Next
    
15. rng.Interior.Color = vbYellow
    
16. End Sub

复制代码

{:291:}

跳转到最佳答案楼层

CheryBTL

操作不会，但可以用条件格式或者VBA来实现 呵呵

xdragon

如果不用宏，貌似只能这样添加辅助区域了。

sixnu

xdragon 发表于 2013-11-19 22:03
如果不用宏，貌似只能这样添加辅助区域了。

多谢，但表很大，很多行很多列，没法添加辅助列

xdragon

sixnu 发表于 2013-11-19 22:05
多谢，但表很大，很多行很多列，没法添加辅助列

那用vba的行不?....

xdragon

1. Sub t()
   
2. Dim arr(), rng As Range, i As Long, j As Long
   
3. arr = Sheets("sheet1").Range("A1").CurrentRegion.Value
   
4. For i = 1 To UBound(arr)
   
5.   For j = 1 To UBound(arr, 2)
   
6.     If Len(arr(i, j)) = 0 Then
   
7.       If rng Is Nothing Then
   
8.         Set rng = Union(Cells(i, j), Cells(i, 1), Cells(1, j))
   
9.       Else
   
10.         Set rng = Union(rng, Cells(i, j), Cells(i, 1), Cells(1, j))
    
11.       End If
    
12.     End If
    
13.   Next
    
14. Next
    
15. rng.Interior.Color = vbYellow
    
16. End Sub

复制代码

{:291:}