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

´¡¤J¼Æ¦C°ÝÃD

´¡¤J¼Æ¦C°ÝÃD

Book1.rar (7.21 KB) ½Ð°ª¤â­Ì«ü¾É  ÁÂÁÂ
   ¦pªþ¥ó

¦^´_ 1# jim
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     With Range(Cells(Range("K1"), "B"), Cells(Range("K1"), "G")).Resize(Range("L1"))
  3.         .Insert Shift:=xlDown   'range(B:G)¦Ó«D¾ã¦C
  4.         '.EntireRow.Insert      '¾ã¦C
  5.     End With
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

THANKS

TOP

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