- 帖子
- 63
- 主題
- 8
- 精華
- 0
- 積分
- 122
- 點名
- 0
- 作業系統
- Windows 2007
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2019-4-16
- 最後登錄
- 2023-3-24
|
Sub Countif()
a = Sheets("繳庫量").Range("G65536").End(3).Row
b = ActiveSheet.Range("A65536").End(3).Row
For i = 2 To b Step 1
ActiveSheet.Range("G" & i).Value = WorksheetFunction.Countif(Sheets("繳庫量").Range("G2:G" & a), ActiveSheet.Range("A" & i).Value)
Next i
End Sub |
|
發表於 2021-11-23 15:55
| 