ªð¦^¦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)

  1. Sub Macro()
  2.    If Worksheets("°e¼fªí³æ").Range("a2") <> "" Then
  3.       Data = [a2:f6]
  4.       With Worksheets(Data(1, 1))
  5.         .Activate
  6.         .Range("A65536").End(xlUp).Offset(1, 0).Resize(, 6) = Data
  7.       End With
  8.    End If
  9. End Sub
½Æ»s¥N½X
¦^´_ 1# a_nanami

TOP

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

TOP

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 : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD