[µo°Ý] ¦p¦óÅý¤À´²ªº¸ê®Æ¶°¤¤

oak0723-1

¦p¦óÅý¤À´²ªº¸ê®Æ¶°¤¤
¦pªþ¥ó¤u§@ªíAªº¸ê®Æ..¬O¤À´²ªº¸ê®Æªº¼Æ¶q©M¦ì¸m(«ü©Ò¦bªº¦C¼Æ)³£¤£¬O©T©w
§Æ±æ«ö"¾ã²z"Áä
´N¯àÅý¸ê®Æ¶°¤¤¦b¤u§@ªíB(¦pÀɮשҥܽd¨Ò)

aggps

¦^´_ 1# oak0723-1

1. Sub run()
   
2. Dim ab1
   
3. Dim ab2
   
4. Dim run1
   
5.   ab1 = Sheets("A").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
   
6.   ab2 = 8
   
7.   
   
8.   For run1 = 8 To ab1
   
9.   If Sheets("A").Cells(run1, 1) < 11 Then
   
10.      Sheets("B").Rows(ab2) = Sheets("A").Rows(run1).Value
    
11.      ab2 = ab2 + 1
    
12.   End If
    
13.   Next
    
14.   
    
15. End Sub

½Æ»s¥N½X

oak0723-1

ÁÂÁÂaggps¦Ñ®v

oak0723-1

¤À´²ªº¸ê®ÆÁÙ¬OµLªk¶°¤¤
¦pªþ¥ó¤u§@ªíAªº¸ê®Æ..¬O¤À´²ªº¸ê®Æ
«ö"¾ã²z"Áä
¦b¤u§@ªíB¸ê®Æ¨ÃµLªk¶°¤¤(¦pÀɮשҥܽd¨Ò)

quickfixer

¦^´_ 4# oak0723-1


     If Sheets("A").Cells(run1, 1) <> "" Then

oak0723-1

¦^´_ 5# quickfixer
ÁÂÁÂ
«D±`·P®¦

samwang

¦^´_ 4# oak0723-1

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
With Range("a7:jm" & Range("a65536").End(3).Row)
   .AutoFilter 1, "<>" & ""
   .SpecialCells(xlCellTypeVisible).Copy Sheets("B").[A7]
   .AutoFilter
End With
End Sub

oak0723-1

¦^´_ 7# samwang
«D±`ÁÂÁÂ