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

copy¸ê®Æ¦Ü¦³ÁôÂÃÄæ¦ì¤§¤è¦¡½Ð±Ð

copy¸ê®Æ¦Ü¦³ÁôÂÃÄæ¦ì¤§¤è¦¡½Ð±Ð

dear  all ¤j¤j -
  1sheet1 ¤u§@ªí¤§ range("a1") - range("d1")
    ¤§­È­ncopy¦Ü   sheet2 ¤u§@ªí¤§  range("a1")
    range("c1")   range("e1")   range("g1")
    1.1 sheet2 ¤u§@ªí¤§ Äæ¦ìrange("b1")  range("d1")
          range("f1") ¦³¼vÂ䣥icopy ¤§.
  2·Ð¤£¥t½ç±Ð.  thanks.

a.rar (1.4 KB)

À³¸Ó¥i¥Hªº,ÁôÂä£ÁôÂÃ¥Îcopy¨S¦³Ãö«Y

TOP

°ò¥»¾Þ§@À³¸Ó°µ¤£¨ì
¸Õ¸Õ¬Ý
Sub Ex()
ar = Sheet1.[A1:D1].Value
Set Rng = Sheet2.Rows("1").SpecialCells(xlCellTypeVisible)
For Each a In Rng
i = i + 1
If i > UBound(ar, 2) Then Exit For
  a.Value = ar(1, i)
Next
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


    DEAR  Hsieh  ¤j¤j -
       TEST«á§¹¥þ²Å¦X¶·¨D.·PÁ±z¤§«ü¾É.  THANKS*10000

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD