[已解决]指定区域包含指定字符的行涂色

心灵有约

利润表.zip (811.32 KB, 下载次数: 13)

2016-3-28 23:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-3-29 06:48

1. Sub Macro1()
   
2. Dim arr, w, i&, j%
   
3. arr = Sheet1.UsedRange
   
4. w = Array("税金及附加", "变动收益")
   
5. Sheet1.UsedRange.Interior.ColorIndex = xlNone
   
6. For i = 6 To UBound(arr)
   
7.     For j = 0 To UBound(w)
   
8.         If arr(i, 2) Like "*" & w(j) & "*" Then
   
9.             Cells(i, 1).Resize(1, UBound(arr, 2)).Interior.ColorIndex = 6: Exit For
   
10.         End If
    
11.     Next
    
12. Next
    
13. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, w, i&, j%
   
3. arr = Sheet1.UsedRange
   
4. w = Array("税金及附加", "变动收益")
   
5. Sheet1.UsedRange.Interior.ColorIndex = xlNone
   
6. For i = 6 To UBound(arr)
   
7.     For j = 0 To UBound(w)
   
8.         If arr(i, 2) Like "*" & w(j) & "*" Then
   
9.             Cells(i, 1).Resize(1, UBound(arr, 2)).Interior.ColorIndex = 6: Exit For
   
10.         End If
    
11.     Next
    
12. Next
    
13. End Sub

复制代码

02761752696

一起学习