samwang

¦^´_ 1# cypd

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr
Sheets("¤u§@ªí1").Copy After:=Sheets(Sheets.Count)
With Range([a2], [i65536].End(3))
    Arr = .Value
    .Value = Arr
    .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
End Sub

samwang

¦^´_ 7# cypd

Sub test()
With Sheets("¤u§@ªí1")
    R = .Range("e65536").End(3).Row
    .Range("e3:e" & R).Copy Sheets("Âà´«¸ê®Æ").[a2]
    .Range("g3:g" & R).Copy Sheets("Âà´«¸ê®Æ").[b2]
End With
End Sub

samwang

¦^´_ 9# cypd

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test2()
Dim Arr, i&
With Sheets("¤u§@ªí1")
    Arr = .Range(.[i3], .[a65536].End(3))
    For i = 1 To UBound(Arr)
        If Arr(i, 8) = 0 Then Arr(i, 9) = "¦¨¥\"
        If Arr(i, 8) = 1 Then Arr(i, 9) = "¥¢±Ñ"
    Next
    [a3].Resize(UBound(Arr), 9) = Arr
    .Copy After:=Sheets(Sheets.Count)
End With
With Range([a2], [i65536].End(3))
    .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
End Sub

samwang

¦^´_ 11# cypd

µ{¦¡½X¤¤  .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
...½Ð°Ý¸Ó¬qµ{¦¡½X»¡©ú¬O«ü¦Û­q±Æ§Ç?
>>¬O

samwang

¦^´_ 13# cypd

§Æ±æµ²ªG¤£¥H¨ç¼Æ¤½¦¡§e²{
¥H VBA µ{¦¡½X§e²{²Î­p
HÄ楢±Ñ(L3)¦¨¥\(M3)°Ï§O¤H¼Æ¤ÎÁ`¤H¼Æ(L4)
¨Ö­pºâ GÄæ©M°OÁ`¶O¥Î(L5)   ^^
>> ¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("¤u§@ªí1")
    Arr = .Range(.[i3], .[a65536].End(3))
    For i = 1 To UBound(Arr)
        If Arr(i, 8) = 0 Then s = s + 1: Arr(i, 9) = "¦¨¥\"
        If Arr(i, 8) = 1 Then f = f + 1: Arr(i, 9) = "¥¢±Ñ"
        Cnt = Cnt + Arr(i, 7)
    Next
    .[L3] = f: .[M3] = s: .[L4] = UBound(Arr): .[L5] = Cnt
    [a3].Resize(UBound(Arr), 9) = Arr
    .Copy After:=Sheets(Sheets.Count)
End With
With Range([a2], [i65536].End(3))
    .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
End Sub

samwang

¦^´_  samwang

·P®¦ samwang  ¼ö¤ßªº¦^ÂÐ
¸g¹L¥©¤â½s´¦Ó¦¨ªº VBA µ{¦¡½X +-*/¹Bºâ¦Û¦p

¤µ¦³¤@°ÝÃD ...
cypd µoªí©ó 2022-9-27 14:12

¦p¤WÀɮפµ­n§R°£ C Äæ1Äæ>>¬O³o¼Ë¶Ü?
Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("¤u§@ªí1")
    Arr = .Range(.[i3], .[a65536].End(3))
    For i = 1 To UBound(Arr)
        If Arr(i, 8) = 0 Then s = s + 1: Arr(i, 9) = "¦¨¥\"
        If Arr(i, 8) = 1 Then f = f + 1: Arr(i, 9) = "¥¢±Ñ"
        Cnt = Cnt + Arr(i, 7)
    Next
    .[L3] = f: .[M3] = s: .[L4] = UBound(Arr): .[L5] = Cnt
    [a3].Resize(UBound(Arr), 9) = Arr
    .Copy After:=Sheets(Sheets.Count)
End With
With Range([a2], [i65536].End(3))
    .Sort Key1:=.Item(9), Order2:=2, Header:=xlYes
End With
Columns("C:C").Delete Shift:=xlToLeft
End Sub

samwang

¦^´_  samwang

«D±`·PÁ samwang  ¼ö¤ßªº¦^ÂÐ
(¤£¦n·N«ä°ÝÃD¨Sªí¹F²M·¡)

°ÝÃD¬OÀɮפ¤ªº C Äæ¤w§R°£ ...
cypd µoªí©ó 2022-9-27 16:09

¤£¦n·N«ä¡A¦³ÂIµLªk²z¸Ñ±zªº»Ý¨D¡A½Ð¦A»¡©ú¤@¤U­ì¨Óª¬ªp/»Ý¨Dµ²ªG¡AÁÂÁÂ

samwang

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