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

[µo°Ý] ½Ð±Ð¦p¦ó¬D¥XÄæ¦ì¤º·Å«×¤p©ó20 ªº¼Æ­È¡A¨Ã°O¿ý¦ì¸m¡C

[µo°Ý] ½Ð±Ð¦p¦ó¬D¥XÄæ¦ì¤º·Å«×¤p©ó20 ªº¼Æ­È¡A¨Ã°O¿ý¦ì¸m¡C

½Ð±Ð¤j¤j¡G
¦p¦ó¬D¥XÄæ¦ì¤º·Å«×¤p©ó20 ªº¼Æ­È¡A¨Ã°O¿ý¦ì¸m¡C
¤£­n¶]FOR°j°é¡C
½Ð±ÐÃþ¦ü find¡Bfindif¡Bfindnextªº¨ç¼Æ¥i¥Î¶Ü¡HÁÙ¬O¦³¨ä¥Lªº¨ç¼Æ¥i¥H¨Ï¥Î¡H
ÁÂÁ¤j¤j­Ìªº´£ÂI«ü±Ð~¡I^^




2015.2.25°ÝÃD.rar (6.8 KB)

¥»©«³Ì«á¥Ñ p212 ©ó 2015-2-25 15:39 ½s¿è

¦^´_ 1# ji12345678
¥H¨ç¼Æ¸Ñ
Àx¦s®æG2¿é¤J°}¦C¤½¦¡
=IFERROR(INDEX($B:$B,SMALL(IF(($B:$B<20)*($B:$B<>""),ROW($B:$B),""),ROW(1:1))),"")
Àx¦s®æH2¿é¤J°}¦C¤½¦¡
=IFERROR("B"&SMALL(IF(($B:$B<20)*($B:$B<>""),ROW($B:$B),""),ROW(1:1)),"")
¦V¤U½Æ»s¤½¦¡
½Ð°Ñ¦Ò¡I

TOP

«D±`·P®¦p212 ¤j¤j´£¨Ñªº¤èªk¡A½Ð±Ð¤@¤U¨ç¼Æ¬O§_¯à¦bVBAªºÀô¹ÒùعF¨ì³o¼Ëªº¥\¯à¡H

TOP

«D±`·P®¦p212 ¤j¤j´£¨Ñªº¤èªk¡A½Ð±Ð¤@¤U¨ç¼Æ¬O§_¯à¦bVBAªºÀô¹ÒùعF¨ì³o¼Ëªº¥\¯à¡H
ji12345678 µoªí©ó 2015-2-25 21:31
  1. Sub TEST() '§ä¤p©ó20ªº·Å«×
  2.   Dim lSRow&, lTrow&
  3.   
  4.   Range("G2:H200").Clear
  5.   lSRow = 2
  6.   lTrow = 2
  7.   
  8.   While Cells(lSRow, 1) <> ""
  9.     If Cells(lSRow, 2) < 20 Then
  10.       Cells(lTrow, 7) = Cells(lSRow, 2)
  11.       Cells(lTrow, 8) = Cells(lSRow, 2).Address(0, 0)
  12.       lTrow = lTrow + 1
  13.     End If
  14.     lSRow = lSRow + 1
  15.   Wend
  16. End Sub
½Æ»s¥N½X
2015.2.25°ÝÃD-a.zip (7.44 KB)

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD