[已解决]侦测地址中的"村"“乡” 改背景颜色

nixliu

A列为地址 上万个

如果里面有"村"or“乡”字 改底色为绿 Interior.ColorIndex = 4


十分感谢

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-14 11:41

1. Sub xx()
   
2.     Dim n&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         .Cells.Interior.ColorIndex = 0
   
6.         For i = 1 To n
   
7.             If InStr(.Cells(i, 1), "村") + InStr(.Cells(i, 1), "乡") > 0 Then .Cells(i, 1).Interior.ColorIndex = 4
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

跳转到最佳答案楼层

baksy

设置条件格式。

老司机带带我

1. Sub xx()
   
2.     Dim n&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         .Cells.Interior.ColorIndex = 0
   
6.         For i = 1 To n
   
7.             If InStr(.Cells(i, 1), "村") + InStr(.Cells(i, 1), "乡") > 0 Then .Cells(i, 1).Interior.ColorIndex = 4
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

02761752696

1. Sub Click()
   
2. Dim r As Range
   
3. For Each r In [A1:D10] '把[A1:D10]改成你的地址所在单元格区域就行
   
4.   If InStr(r, "村") Or InStr(r, "乡") Then
   
5.    r.Interior.ColorIndex = 4
   
6.   Else
   
7.    r.Interior.ColorIndex = 0
   
8. End If
   
9. Next
   
10. End Sub

复制代码

nixliu

老司机带带我 发表于 2016-6-14 11:41

谢谢啊

麻烦问下 如果改成 A列 B列 都需要侦测 要怎样改写？

老司机带带我

nixliu 发表于 2016-6-14 16:04
谢谢啊

麻烦问下 如果改成 A列 B列 都需要侦测 要怎样改写？

1. Sub xx()
   
2.     Dim n&, n1&
   
3.     With Sheet1
   
4.         Set rng = .Columns("A:B")
   
5.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         n1 = .Cells(.Rows.Count, 2).End(xlUp).Row
   
7.         .Cells.Interior.ColorIndex = 0
   
8.         For i = 1 To n
   
9.             If InStr(.Cells(i, 1), "村") + InStr(.Cells(i, 1), "乡") > 0 Then .Cells(i, 1).Interior.ColorIndex = 4
   
10.         Next
    
11.         For i = 1 To n1
    
12.             If InStr(.Cells(i, 2), "村") + InStr(.Cells(i, 2), "乡") > 0 Then .Cells(i, 2).Interior.ColorIndex = 4
    
13.         Next
    
14.     End With
    
15. End Sub

复制代码