[µo°Ý] ½Ð±Ð ¥Îexcel ¤½¦¡ ¤ÀªR¸ê®Æ

adrian_9832

½Ð¤j¤jÀ°§U ¤£¤Ó·|¥Î¤½¦¡ ²Î­p

samwang

¦^´_ 1# adrian_9832

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, Brr(), i&, T%, T1,n%
Dim s1%, s2%, s3%, s4%, R%, C%
Arr = Range([a1], [c65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 5)
For i = 2 To UBound(Arr)
    T = Arr(i, 2): T1 = Arr(i, 3)
    If T >= 18 And T <= 30 Then
        R = 1: s1 = s1 + 1
    ElseIf T >= 31 And T <= 40 Then
        R = 2: s2 = s2 + 1
    ElseIf T >= 41 And T <= 50 Then
        R = 3: s3 = s3 + 1
    ElseIf T >= 51 And T <= 60 Then
        R = 4: s4 = s4 + 1
    End If
    If T1 = 13.3 Then
        C = 2
    ElseIf T1 = 14 Then
        C = 3
    ElseIf T1 = 15.5 Then
        C = 4
    ElseIf T1 = 17.3 Then
        C = 5
    End If
    If R > 0 And C > 0 Then
        Brr(R, C) = IIf(Brr(R, C) = "", 1, Brr(R, C) + 1)
        n = n + 1: R = 0: C = 0
    End If
Next
Brr(1, 1) = s1: Brr(2, 1) = s2: Brr(3, 1) = s3: Brr(4, 1) = s4
Range("g2").Resize(n, 5) = Brr
End Sub

adrian_9832

¦w¦w¤j¤j ·|¦³¤½¦¡ª© ªº±Ð¾Ç¶Ü

­ã´£³¡ªL

18-30
30-40

30¨ì©³ÄÝ­þ­Ó°Ï¶¡???

hcm19522

https://blog.xuite.net/hcm19522/twblog/590129573

ML089

G2 =SUM(COUNTIFS(B:B,"<="&MID(F2,{1,4},2))*{-1,1})
¤U©Ô

H2 =SUM(COUNTIFS($B:$B,"<="&MID($F2,{1,4},2),$C:$C,RIGHT(H$1,{2;4}))*{-1,1})
¥k©Ô¤U©Ô

adrian_9832

¦^´_ 5# hcm19522


    ÁÂÁ¤j¤jªºÀ°§U ÁÙ¦³¥t¥~¨â¦ì·|­û¤j¤jªºÀ°§U ©M¤ä«ù