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

[µo°Ý] ¨Ì©Ò»Ý±ø¥ó ¥¢±Ñ ¦¨¥\ ­«·s±Æ§Ç...

¦^´_ 20# cypd
½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("¤u§@ªí1")
    Arr = .Range(.[h3], .[a65536].End(3))
    For i = 1 To UBound(Arr)
        If Arr(i, 7) = 0 Then s = s + 1: Arr(i, 8) = "¦¨¥\"
        If Arr(i, 7) = 1 Then f = f + 1: Arr(i, 8) = "¥¢±Ñ"
        Cnt = Cnt + Arr(i, 7)
    Next
    .[K3] = f: .[L3] = s: .[K4] = UBound(Arr): .[K5] = Cnt
    [a3].Resize(UBound(Arr), 8) = Arr
    .Copy After:=Sheets(Sheets.Count)
End With
With Range([a2], [h65536].End(3))
    .Sort Key1:=.Item(8), Order2:=2, Header:=xlYes
End With
End Sub

TOP

¦^´_ 21# samwang
«D±`·PÁ  samwang  ¤£§[«ü±Ð
©Ò­z°ÝÃD¤wª¾¬ÛÃöÄæ¦ì¤§­×¥¿«á
²£¥Í©Ò»Ý¥¢±Ñ¦¨¥\¤§±Æ§Ç¤w³BOK!
·P¶â   ^^

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD