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

¤j¶q¸ê®Æ±Æ¦W

¤j¶q¸ê®Æ±Æ¦W

¦U¦ì¥ý¶i¦n
§Ú·Q­n§âHÄæ¦ì¸Ì±Æ¦WÅã¥Ü¦bJÄæ
¦ý¦]¬°¸ê®Æ¤Ó¦h±`±`·|¦³¹F50¸U­Ó¼Æ¦r(¸ê®Æ¼Æ¤£¤@©w)
¥Î¨ç¼Æ¤è¦¡³B²z±`±`·|·í±¼
¤£ª¾¦p¦ó§ï¦¨VBAªº¤è¦¡¦Û°Ê­pºâ
¨ç¼Æ¦¡:"=IF(H6="",0,SUMPRODUCT(($H$6:$H$500000>=H6)*(1/COUNTIF(H$6:H$500000,H$6:H$500000))))"

1100927-±Æ¦W.rar (540.57 KB)

  1. Sub zz()
  2. Dim d As Object, a, k, t, xL As Object, n&
  3. Set xL = CreateObject("System.collections.arraylist")
  4. Set d = CreateObject("scripting.dictionary")
  5. a = Range("h6:h" & [h1048576].End(3).Row)
  6. For Each k In a
  7.     d(k) = ""
  8. Next
  9. For Each k In d.keys
  10.     xL.Add k
  11. Next
  12. xL.Sort: b = xL.Toarray()
  13. n = UBound(b)
  14. For i = 1 To UBound(a)
  15.     For j = 0 To n
  16.         If a(i, 1) <= b(j) Then a(i, 1) = n + 1 - j: Exit For
  17.     Next
  18. Next
  19. [i6].Resize(i - 1) = a
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# oak0723-1

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, Brr, xD, T
Set xD = CreateObject("Scripting.Dictionary")
With Range("h6:h" & Cells(Rows.Count, 8).End(xlUp).Row)
    Brr = .Value
    .Sort key1:=.Item(1), Order1:=2, Header:=2
    Arr = .Value
    .Value = Brr
End With
For i = 1 To UBound(Arr)
    T = Arr(i, 1): If T = "" Then GoTo 98
    If xD(T) = "" Then: n = n + 1: xD(T) = n
98: Next
For i = 1 To UBound(Brr)
    T = Brr(i, 1)
    If T = "" Then Brr(i, 1) = 0: GoTo 99
    Brr(i, 1) = xD(T)
99: Next
Range("i6").Resize(UBound(Brr)) = Brr
End Sub

TOP

¦^´_ 1# oak0723-1


½Ð°ÝHÄæ¼Æ­ÈªÅ¥Õ®É(¤£¬O0)¡A ±Æ¦W¬° 0¶Ü?

TOP

¦^´_ 4# samwang


    ©êºp§Ú¨S´y­z²M·¡
¤º®eªÅ¥Õ¦³2ºØ±¡§Î
1.«e«á³£¦³¼Æ¾ÚªºªÅ¥ÕÀx¦s®æ-->Åã¥Ü0,¤£¦C¤J±Æ¦W
2.¼Æ¾Úµ²§ô«áªºªÅ¥ÕÀx¦s®æ-->¤£¦C¤J±Æ¦W,¤£§@°Ê§@,¨ÌµM¬OªÅ¥Õ

«e«á³£¦³¼Æ¾ÚªºªÅ¥ÕÀx¦s®æ

Image 3.jpg

¼Æ¾Úµ²§ô«áªºªÅ¥ÕÀx¦s®æ

Image 5.jpg

TOP

¦^´_ 3# samwang


    §A¦n,·PÁ§AÄ@·N¼ö¤ß¨ó§U
§Ú°õ¦æ«áµo²{

¤£­«·s¶}±ÒÀÉ®×±¡ªp¤U§ó°Ê¼Æ¾Ú«á¦A°õ¦æµ{¦¡,µo²{°õ¦æ³t«×·|§óºCÀɮקó®e©ö·í¾÷
Image 7.jpg

1100927-±Æ¦W01-3.rar (960.08 KB)

TOP

¦^´_ 2# ikboy
§A¦n
ÁÂÁ§Aªº¼ö¤ß¨ó§U
³o­Óµ{¦¡¦b­«½Æ°õ¦æ,´N¬O¤£Ãö³¬­«·s¶}±Ò,¦Óª½±µ§ó§ï¼Æ¾Ú,¨Ï¥Î·sªº1²Õ¼Æ¾Ú(¤º®e©M¼Æ¾Ú¼Æ¶q³£¤£¦P)¦A°õ¦æ,³t«×·|§óºC§ó®e©ö·í¾÷

TOP

¦^´_ 7# oak0723-1


    ¬O§_§A¥»¨­ªº¤½¦¡¾É­P? ¥i§ï¬°¤â°Ê­«ºâ¸Õ¸Õ¡C
1100927-±Æ¦W.png

TOP

¦^´_ 6# oak0723-1

²¾°£J6 ¤½¦¡¦A°õ¦æµ{¦¡´N¥i¥H¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

TOP

¦^´_ 9# samwang


    ­ì¨Ó¬Oj6¤½¦¡¥d¦í¾ãÅ骺¹Bºâ
ÁÂÁ§A

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD