[µo°Ý] ¥N´ÀCOPY ???

t8899

[I2]=[H1]  ÃC¦â¨S¦³«þ¹L¨Ó???
°£¤F¥Î [H1].COPY [I2] ¥~ ÁÙ¦³¨ä¥L¤èªk¶Ü ??? Book2.zip (7.95 KB)

¤U¸ü¦¸¼Æ: 7

2015-8-29 14:29

¤U¸ü (23.3 KB)

2015-8-29 14:29

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

Scott090

¦^´_ 3# t8899

§@·~¨t²Îªº°Å¶Kï¥u¦³¤@­Ó¡A
copy , paste³z¹L°Å¶Kï°õ¦æ, À³¥Îµ{¦¡¦@¥Î¡A«e¤@­Ó¦b°Å¶K襤ªº¸ê®Æ·|³Q«á¤@­Ó copy¶i¨Óªº¸ê®ÆÂл\

t8899

¦r¦ê¤¤¤å¦r­Ó§O¼Ð¦â, [®æ¦¡½Æ»s]¤]¿ì¤£¨ì, copy¬O³Ì¤è«K!

µ{¦¡one by one°õ¦æ, ¤£À´³o­Ócopy¬°¦ó·|»P¨ä¥¦ ...
­ã´£³¡ªL µoªí©ó 2015-8-31 19:09

°²³]§A¦bword¥Îcopy  
¦A¤Á¦^excel  vb¥Î [a1].copy  [a2]
«hword ªº copy±N®ø¥¢(paste¬OªÅ¥Õªº)

­ã´£³¡ªL

¦r¦ê¤¤¤å¦r­Ó§O¼Ð¦â, [®æ¦¡½Æ»s]¤]¿ì¤£¨ì, copy¬O³Ì¤è«K!

µ{¦¡one by one°õ¦æ, ¤£À´³o­Ócopy¬°¦ó·|»P¨ä¥¦copy¬Û½Ä¬ð???