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

¤u§@ªí¤@¿z¿ï«á¶K¨ì¤u§@ªí¤G

¤u§@ªí¤@¿z¿ï«á¶K¨ì¤u§@ªí¤G

¦U¦ì¤j¤j§Ú¦³­ÓºÃ°Ý
ÀɮצpªþÀÉ

§Úªº¤u§@ªí¤@
¬O¤@­ÓÁ`ªí
§Úªº¸ê®Æ³£·|¥á¨ì³o¸Ì¨Ó

¤u§@ªí¤G´N¬O±N¸ê®Æ¿z¿ï«áªº¸ê®ÆCOPY¨ì ¤u§@ªí¤G

¦ý°ÝÃD¨Ó¤F

§Úªº¤u§@ªí¤G ¸ê®Æ·|¤@ª½¼W¥[
¦p¦óÅýVBA¦Û°ÊCOPY¨ì
ªÅ¥ÕÄæ¦ì


§Ú³£¬O¥d¦b³o¸Ì½Ð¤j¤jÀ°¦£

¦^´_ [url=http://forum.t ¬¡­¶Ã¯1.zip (7.02 KB) wbts.com/redirect.php?goto=findpost&pid=51995&ptid=9235]1#[/url] lookup221

TOP

¦^´_ 2# lookup221
  1. Sub ex()
  2. With ¤u§@ªí1
  3. r = Application.CountA(¤u§@ªí2.Columns("A")) + 1
  4. .Range("A1").CurrentRegion.Offset(IIf(r = 1, 0, 1)).SpecialCells(xlCellTypeVisible).Copy ¤u§@ªí2.Cells(r, 1)
  5. End With
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD