GBKEE

1. Sub CommandButton1_Click()
   
2.     Dim i As Integer, A As Integer, C As Integer
   
3.     With Range("I65536").End(xlUp).Offset(1)
   
4.         .Cells = [H1]
   
5.         i = 1
   
6.         Do
   
7.             A = IIf(i = 1, i, i + 1)
   
8.             i = Application.WorksheetFunction.Find(",", .Cells, i + 1)
   
9.             C = [H1].Characters(Start:=A, Length:=i - A).Font.ColorIndex
   
10.             .Characters(Start:=A, Length:=i - A).Font.ColorIndex = C
    
11.         Loop Until i >= Len(.Cells)
    
12.     End With
    
13. End Sub

½Æ»s¥N½X