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

[µo°Ý] ½Ð°Ý:±N¸ê®Æ¶K¨ì¹ïÀ³¦WºÙªº¤u§@ªí¤¤¤èªk...

[µo°Ý] ½Ð°Ý:±N¸ê®Æ¶K¨ì¹ïÀ³¦WºÙªº¤u§@ªí¤¤¤èªk...

ÂI¤@¤U«ö¯Ã¡AÅý A2:F2   ¦Û°Ê·s¼W(¶K)¨ì¹ïÀ³ªº¤u§@ªí¤¤ªº(¤u§@ªí¬ù¦³100­Ó)
¥Ø«e¥u·|¥H¤Uªº¤èªk
Sub Macro()
With Worksheets("ªí1")
   If Worksheets("°e¼fªí³æ").Range("a2") = "" Then Exit Sub
   Worksheets("°e¼fªí³æ").Range("a2:f2").copy .Range("A65536").End(xlUp).Offset(1, 0)
End With  
End Sub

ªþ¤WÀÉ®×   TEST02.rar (14.04 KB)

¹ê¦b¤Ó·PÁ¤F :D

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD