chin15

¬Ý°_¨ÓÀ³¸Ó¬O¦baÄæ¤ñ¹ïd1Àx¦s®æ

1. Sub module1()
   
2.     Dim x$, c As Range, data As Range
   
3.     x = [d1]
   
4.     For Each c In Range([a1], [a65536].End(3))
   
5.         If c = x Then
   
6.             If data Is Nothing Then
   
7.                 Set data = c
   
8.             Else
   
9.                 Set data = Union(data, c)
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     If Not data Is Nothing Then
    
14.     With data
    
15.         .Interior.ColorIndex = 3
    
16.         .Offset(, 1) = "V"
    
17.     End With
    
18.     End If
    
19. End Sub

½Æ»s¥N½X