- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2026-5-26
|
回復 20# cypd
請測試看看，謝謝
Sub test()
Dim Arr, i&, s%, f%, Cnt
With Sheets("工作表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 |
|
發表於 2022-9-28 07:36
| 
