- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
6#
發表於 2013-10-16 10:43
| 只看該作者
回復 4# bmw711208 - Sub TEST()
- Dim r As Long, c As Range
-
- Application.ScreenUpdating = False
- With ActiveSheet
- .UsedRange.AutoFilter Field:=8, Criteria1:="Z 11557" '先篩選,減少loop次數
- r = 1
- For Each c In .Range("H2:H" & .UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
- c.Offset(0, 1).Value = Application.WorksheetFunction.CountIf(.Range("C" & r & ":C" & c.Row), "= ADD")
- r = c.Row
- Next c
- .[A1].AutoFilter
- End With
- Application.ScreenUpdating = True
- End Sub
複製代碼 |
|