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

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

Sub Macro()
With Worksheets("°e¼fªí³æ")
¡@¡@¡@If .[A2] = "" Then Exit Sub
¡@¡@¡@.[a2:f2].Copy Sheets(.[A2].Value).[A65536].End(xlUp)(2)
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD