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

¦p¦ó±qAÀɮפ¤¿ï¨ú¿z¿ï½d³ò¸ê®Æ«á¦A½Æ»sBÀɮפ¤?

¦p¦ó±qAÀɮפ¤¿ï¨ú¿z¿ï½d³ò¸ê®Æ«á¦A½Æ»sBÀɮפ¤?


½Ð±Ð¦U¦ì°ª¤â&¤j¤j;
·s¤â¹J¨ì¤@­Ó°ÝÃD¡AÀµ½Ð¸Ñ´b¡Cthanks~
-->¦p¦ó±qAÀɮפ¤¿ï¨ú¿z¿ï½d³ò¸ê®Æ«á¦A½Æ»sBÀɮפ¤?
¦p¹Ï©Ò¥Ü¡C

¦^´_ 1# ckl520


    ¥H¤U½d¨Ò±N²Ä¤@­Ó¤u§@ªíªº¿z¿ï¤º®e½Æ»s¨ì²Ä¤G­Ó¤u§@ªí
    ¥i¥H¨Ì»Ý¨D¦Û¦æ½Õ¾ã
  1. Sub Test()
  2.     '½Æ»s«e¥ý±N¥Øªº¤u§@ªí²MªÅ
  3.     Sheets(2).UsedRange.Clear
  4.     '±q¨Ó·½¤u§@ªí½Æ»s¥i¨£ªºÀx¦s®æ¨ì¥Øªº¤u§@ªí
  5.     Sheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy _
  6.         Destination:=Sheets(2).Range("A1")
  7. End Sub
½Æ»s¥N½X
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 1# ckl520

³]A.XLS»PB.XLS§¡¤w¶}±Ò

A.XLS¤§¤@¯ë¼Ò²Õµ{¦¡½X
  1. Sub XX()
  2. With Workbooks("A.XLS").Sheets("Sheet1")
  3.   R1 = Application.Match("P/N", .[A:A], 0)
  4.   R2 = Application.Match("Note", .[A:A], 0)
  5.   Workbooks("B.XLS").Sheets("Sheet1").[A1].CurrentRegion = ""
  6.   .Rows(R1 + 1 & ":" & R2 - 1).Copy Workbooks("B.XLS").Sheets("Sheet1").[A1]
  7. End With
  8. End Sub
½Æ»s¥N½X

TOP

·PÁ¤W­±¨â¦ì°ª¤â¥X¤â...
°ÝÃD¤w¸Ñ¨M!!
·P®¦
thanks~

TOP

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