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

[µo°Ý] ½Ð°Ý¦p¦ó±N¸ê®ÆÂà´«¦¨TOP 10

[µo°Ý] ½Ð°Ý¦p¦ó±N¸ê®ÆÂà´«¦¨TOP 10

¦U¦ì¤j¤j¦n,¤p§Ì·Q±N¸ê®Æ¨Ì¨t¦C¤ÀªR¥X°Ó«~±Æ¦W
¦ý¬ã¨s¤F´X¤Ñ¨Ã¨S¦³¤Ó¤jªºÀYºü
¤£ª¾¦³¨S¦³¦n¤ßªº¤j¤j¯à¨ó§U«ü±Ð¤ñ¸û¾A¦Xªº§@ªk
ÁÂÁÂ

¤U¹Ï¬°¨Ó·½¸ê®Æ
»Ý¨D¬O§Æ±æ±N¨Ì°Ó«~Ãþ§O¦A¨Ì°Ó«~½s¸¹ªº¼Æ¶q¨ú±o«e10¦W©Î«e30¦Wªº©ú²Ó¸ê®Æ


¤U¹Ï¬°§Æ±æ§e²{ªºµ²ªG¸ê®Æ

Test1.zip (66.04 KB)

¦^´_ 1# hero007
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet, Rng As Range
  4.     With Sheets("TOP10")
  5.         Sheets("¤u§@ªí1").Rows(1).Copy .Range("A1")
  6.         .UsedRange.Offset(1) = ""
  7.         .Activate
  8.     End With
  9.     Application.ScreenUpdating = False
  10.     Set Rng = Sheets("¤u§@ªí1").Cells(1, Sheets("¤u§@ªí1").Columns.Count)
  11.     Sheets("¤u§@ªí1").Range("A:A").AdvancedFilter xlFilterCopy, , Rng, True
  12.     'AdvancedFilter(¶i¶¥¿z¿ï):  [°Ó«~Ãþ§O]¤£­«½Æªº­Ó¶µ ¨ì Rng
  13.     Rng.Sort Rng, xlAscending, Header:=xlYes  'Sort : ±Æ§Ç
  14.     Set Sh = Sheets.Add                     '³o¬¡­¶Ã¯¤¤·s¼W¤u§@ªí
  15.     Set Rng = Rng.Offset(1)                 '¤U²¾¤@¦C
  16.     Do While Rng <> ""
  17.         With Sheets("¤u§@ªí1")
  18.             .Range("A1").AutoFilter 1, Rng  'AutoFilter(¦Û°Ê¿z¿ï):  [°Ó«~Ãþ§O]ªº·Ç«h= Rng
  19.             .Range("A:E").Copy Sh.[A1]      '¦Û°Ê¿z¿ï«áªº¸ê®Æ½Æ»s¨ì·s¼W¤u§@ªí
  20.         End With
  21.         With Sh
  22.             .Range("A1").AutoFilter Field:=4, Criteria1:="10", Operator:=xlTop10Items
  23.             'AutoFilter(¦Û°Ê¿z¿ï):  [¼Æ¶q] ³Ì¤j¼Æ­Èªº«e10¶µ,
  24.             '**·Ç«h Criteria1:="15" -> «e15¶µ ***
  25.             .UsedRange.Offset(1).Copy Sheets("TOP10").Range("A" & Sheets("TOP10").Rows.Count).End(xlUp).Offset(1)
  26.             '³Ì¤j¼Æ­Èªº«e10¶µ½Æ»s¨ìSheets("TOP10")
  27.         End With
  28.         Set Rng = Rng.Offset(1)                '¤U²¾¤@¦C
  29.     Loop
  30.     Sheets("¤u§@ªí1").Cells.AutoFilter
  31.     '¤u§@ªí¦³¦Û°Ê¿z¿ï,¦b¤@¦¸ªº¦Û°Ê¿z¿ï,¥i¨ú®ø¤u§@ªí¤Wªº¦Û°Ê¿z¿ï
  32.     Rng.EntireColumn = ""
  33.     Application.DisplayAlerts = False
  34.     Sh.Delete
  35.     Application.DisplayAlerts = True
  36.     Application.ScreenUpdating = True
  37. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥ý·PÁ¶W¯Åª©¥Dªº´£¨Ñªº¤èªk
¤p§Ì¥¿¦b´ú¸Õ¤Î¬ã¨sª©¥Dªº¼gªk
±ßÂI¦A¦^³øµ²ªG
«D±`·P®¦^^

TOP

GBKEE ª©¥D
½Ð°Ý¤@¤U §Ú±N§Aªºµ{¦¡½X´_»s¨ì¤@­Ó¼Ò²Õ«áÅý¥L°õ¦æ
°õ¦æ´X¦¸°j°é®É·|¦b".Range("A:E").Copy Sh.[A1]"³o¦æ¥X²{¨âºØ¿ù»~°T®§
²Ä¤@ºØ¡G
°õ¦æ¶¥¬q¿ù»~ '-2147417848 (80010108)':
'Copy' ¤èªk ('Range'ª«¥ó) ¥¢±Ñ
²Ä¤GºØ¡G
°õ¦æ¶¥¬q¿ù»~ '1004':
Class RangeªºCopy¤èªk¥¢±Ñ

¤£¤Ó½T©w¬O¤°»ò­ì¦]³y¦¨ªº?
³o¦æ·Pı«Ü²³æ´N¬O±N·s¼Wªºsheets¤ºªº«e¤Qµ§¸ê®ÆCopy¨ìTOP 10¤u§@ªí¡A¦ý¦³®É¶]²Ä¤G¦¸°j°é´N¥X¿ù¡A¦³®É¶]4~5¦¸¤~¥X¿ù¡A¬Æ¦Ü³s¿ù»~°T®§³£¨S¦³Excelª½±µ·í±¼­«±Ò¡A¤£ª¾¬OÀô¹Ò°ÝÃD³y¦¨ÁÙ¬O???
¹q¸£Àô¹Ò¬O
CPU I7-3770S
RAM 16GB
Office 2013

TOP

¦^´_ 4# hero007

°õ¦æ¶¥¬q¿ù»~ '-2147417848 (80010108)': °Ñ¦Ò³o¸Ì ¸Õ¸Õ¬Ý
°õ¦æ¶¥¬q¿ù»~ '1004':  °Ñ¦Ò³o¸Ì,¥[¤J¦sÀɪºµ{¦¡½X ¸Õ¸Õ¬Ý
§AªºªþÀÉ2003ª©¤¤°õ¦æ2#ªºµ{¦¡¨S¦³¿ù»~µo¥Í
¸Õ¸Õ­×§ï¬Ý¬Ý
  1. With Sheets("¤u§@ªí1")
  2.             .Range("A1").AutoFilter 1, Rng  'AutoFilter(¦Û°Ê¿z¿ï):  [°Ó«~Ãþ§O]ªº·Ç«h= Rng
  3.             '******* ¸Õ¸Õ¬Ý¥i§_¦b§AªºExcelÀô¹Ò¤¤¸Ñ¨M: °õ¦æ¶¥¬q¿ù»~ '1004': Class RangeªºCopy¤èªk¥¢±Ñ
  4.             Sh.AutoFilterMode = False
  5.             '********
  6.             .Range("A:E").Copy Sh.[A1]      '¦Û°Ê¿z¿ï«áªº¸ê®Æ½Æ»s¨ì·s¼W¤u§@ªí
  7.         End With
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂGBKEEª©¥Dªº¨ó§U§r
¥Ø«e°ÝÃD¬Ý¦ü³£±Æ°£Åo
Åý§Ú¬Ý¨ì¤£¦Pªº¼gªk^^

¦Ó§Ú¬Q¤é¤]¦³¹Á¸Õ¥[¤J"Sh.AutoFilterMode = False"³o¥y»yªk
¤]¥[¹L©µ¿ð´X¬í«á¦A°õ¦æ".Range("A:E").Copy Sh.[A1]"
ÁÙ¬O°¸µo¥X¿ù
¤£¹L¤µ¤é¦n¹³¤S³£¦n¤F¡A¤£¹L«OÀI°_¨£ÁÙ¬O«O¯d±N¿z¿ï¨ú®ø
«D±`·PÁ§r^^

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD