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

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

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

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

cap.PNG (30.46 KB)

cap.PNG

example.rar (7.93 KB)

¦^´_ 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

TOP

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

TOP

18-30
30-40

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

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

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©Ô
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2021-11-19 08:50 ½s¿è

¦^´_ 5# hcm19522


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

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD