[¤À¨É] ¦X¨Ö®æ¼Æ¤£¤@¼Ë ­pÁ`©M«á±Æ¦W

hcm19522

¤U¸ü (15.24 KB)

4 ¤Ñ«e 12:02

hcm19522

(·j´M ¿é¤J¸¹½X 14542) googleºô§}:https://hcm19522.blogspot.com/

Andy2483

¦^´_ 1# hcm19522


    ÁÂÁ«e½ú¤À¨É¦¹¥DÃD,«á¾ÇÂǦ¹©«½m²ß°}¦C,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

°õ¦æ«e:

¤U¸ü (75.26 KB)

6 ¤p®É«e

°õ¦æµ²ªG:

¤U¸ü (82.6 KB)

9 ¤p®É«e

Option Explicit
Sub TEST()
Dim Brr, i&, j%, N&, T$
Brr = Range([B2], [F65536].End(3))
For i = 1 To UBound(Brr)
   T = Brr(i, 1)
   If T <> "" Then
      N = N + 1
      Brr(N, 1) = T
      Brr(N, 2) = 0
   End If
   For j = 3 To UBound(Brr, 2): Brr(N, 2) = Brr(N, 2) + Brr(i, j): Next
Next
With [I2].Resize(N, 2)
   .Value = Brr
   .Sort KEY1:=.Item(2), Order1:=2, Header:=2
   .Item(1, 0).Resize(N) = "=""²Ä"" & Row()-1 & ""¦W"""
End With
End Sub