GBKEE

¦^´_ 1# wind6424

1. Sub Ex()
   
2.     Dim Y, X, A, A1
   
3.     Y = 1: X = 1
   
4.     Do While Sheet1.Cells(Y, X) <> ""
   
5.         With Sheet1.Cells(Y, X)
   
6.             .Font.ColorIndex = 0
   
7.             .Font.Bold = False
   
8.             A = InStr(.Text, "[")
   
9.             A1 = InStr(.Text, "]")
   
10.             If A > 0 And A1 > 0 Then
    
11.                 .Characters(A, A1 - A + 1).Font.ColorIndex = 5
    
12.                 .Characters(A, A1 - A + 1).Font.Bold = True
    
13.             End If
    
14.             Y = Y + 1
    
15.         End With
    
16.    Loop
    
17. End Sub

½Æ»s¥N½X