ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

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

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-8-31 20:58 ½s¿è
¦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ªÅ¥Õªº)

TOP

¦^´_ 3# t8899

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

TOP

  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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD