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

[µo°Ý] ¬O§_¦³¿ìªk®Ø¿ï½d³ò¥H­Èªº¤è¦¡¤U²¾¤£§ïÅÜÀx¦s®æ¤½¦¡??

¦^´_ 4# luhpro
  1. Sub ©¹¤U²¾°Ê()
  2.   Dim lRow&, lRows&
  3.   Dim rTar As Range

  4.   Set rTar = Selection
  5.   If rTar.Count = 1 Then
  6.     lRows = 1
  7.   Else
  8.     lRows = UBound(rTar.Value2, 1)
  9.   End If
  10.   icol = 7
  11.   Do While icol < 16
  12.     Range(Cells(rTar.Row, icol), Cells(Rows.Count, icol).End(xlUp)).Copy _
  13.     Cells(rTar.Row + lRows, icol)
  14.     'Range(Cells(rTar.Row, icol), Cells(rTar.Row + lRows - 1, icol)) = ""  ' ¤£½T©w§A¬O§_­n²M±¼³o¨Ç¸ê®Æ
  15.     icol = icol + 8
  16.   Loop
  17. End Sub
½Æ»s¥N½X
¤j¤j³o¤@¬q©¹¤Uªº¥N½X  ¬O§_¦³¿ìªk¤@¦¸¤U­°2®æ ¨Ã¼W¥[¦hÄæ

¹³¹Ï¤¤®Ø¿ïªºÄæ¦ì¦P®É¤U­°

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD