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

¥¨¶°µ{¦¡¸ß°Ý

«ä¸ô
Sub CopySourceRowTo200Sheets()
Set SourceRow = [±zªº·½¦C]
rs=Rows.count
For i = 1 to 200
With sheys(i)
  SourceRow.copy .Range("a" & rs).end(xlup)(2)  Rem°²³]±zªº¸ê®Æ¥ÑAÄæ¶}©l
End with
Next
End sub

¥t¤@­Ó°ÝÃD¤£²z¸Ñ
µo¦Ü§Úªº¤p¦Ì¤â¾÷

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD