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

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

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

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

081006(test).rar (114.89 KB)

¦^´_ 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

TOP

ÁÂÁÂaggps¦Ñ®v

TOP

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

1100905(test).rar (51.13 KB)

TOP

¦^´_ 4# oak0723-1


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

TOP

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

TOP

¦^´_ 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

TOP

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

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD