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

VBA´M§ä­«½Æ

¦^´_ 1# Qin

Rept+1.rar (446.33 KB)

§Ö¤@¨Ç¨Ç(µ{§Çtest2)¡A¦r¨åª«¥ó¤]´N³o¼Ë¤F¡A´Á«Ý¦³§ó¦nªº¼gªk

µ{§Çtest1=­ìµ{§Ç+­p®É¾¹

¸Ü»¡...."Öظ´" ¬O¤°»ò·N«ä?
  1. Private Sub test2()
  2.     t1 = Timer
  3.     Application.ScreenUpdating = False
  4.     Dim arr As Range, brr()
  5.     Dim i As Long, Rn As Long
  6.     Dim Dict As Object
  7.     On Error Resume Next
  8.     Set Dict = CreateObject("scripting.dictionary")
  9.     With ActiveSheet
  10.        Set arr = Intersect(.UsedRange, .Columns(3))
  11.        Rn = arr.Cells.Count
  12.         ReDim brr(1 To Rn)
  13.         For i = 1 To Rn
  14.           Dict(arr(i).Value) = Dict(arr(i).Value) + 1
  15.         Next i
  16.         For i = 1 To Rn
  17.             If Dict(arr(i).Value) <> 1 Then brr(i) = "­«ÂÐ"
  18.         Next i
  19.         .Columns(2) = ""
  20.         .Range("b1").Resize(Rn, 1) = Application.Transpose(brr)
  21.     End With
  22.     Application.ScreenUpdating = True
  23.     MsgBox "test2¦@¯Ó®É" & Round(Timer - t1, 3) & "¬í"
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# ­ã´£³¡ªL


·Ç¤j¤Ó¼F®`°Õ¡A­ì¨Ó¦r¨åª«¥ó¿é¤Jªºkey¬O¦r¦ê«¬ºAªº¸Ü¡A³t«×¥i¥H´£ª@¨º»ò¦h!!!

¦pªG¬O«D¦r¦ê¡A³t«×¾ã­ÓºC¤U¨Ó!   

¥t¥~¥Î¦r¨å°O¿ý¤W¤@­Ó­«ÂЪº¦C¸¹¨Ã¥B¤@°_¿é¤J"­«ÂÐ"ªº¼gªk¤]«Ü´Î¡A¥i¥H¥u¥Î¤@­Ó°j°é

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD