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

[µo°Ý] ¦C¦Lªí³æ¤£¦P¸ê®Æ

[µo°Ý] ¦C¦Lªí³æ¤£¦P¸ê®Æ

½Ð°Ý¤j¤j
¦pªþ¥ó
¥i¥H¤@±iªí³æ
´N¥i¥H¦C¦L¦h±iªº¸ê®Æ¶Ü
¦h±i¤£¦Pªº¸ê®Æ(ÅU«È¡Bµf¸¹)
¤£»Ý­n½Æ»sªí³æ¡A¥Î³sµ²ªº
¦C¦Lªí³æ.rar (19.81 KB)
ÁÂÁ¤F^^

¦^´_ 1# ÅQ®ð¨«¥þ¨­
¸Õ¸Õ¬Ý
  1. Sub xx()
  2. For Each R In Range([C5], [C65536].End(xlUp))
  3.   Sheets("¦Û¥D¦C¦L").[B2] = R
  4.   Sheets("¦Û¥D¦C¦L").[B3] = R.Offset(0, 1)
  5.   Sheets("¦Û¥D¦C¦L").Select
  6.   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=[R3], Copies:=1, Collate:=True
  7. Next
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# register313


    ÁÂÁ§Aªü~~¥i¥H¤F^^

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD