- 帖子
- 712
- 主題
- 281
- 精華
- 0
- 積分
- 1019
- 點名
- 0
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-6-30
- 最後登錄
- 2025-5-22
|
本帖最後由 av8d 於 2025-1-8 21:46 編輯
回復 2# catbears
謝謝前輩,受益良多,正是我要的,深刻學習了Subtotal函數的妙用。
解開了,謝謝前輩,如下
For Each Cell In Selection
If Cell.EntireRow.Hidden = False Then
s = s + Cells(Cell.Row, "B")
End If
Next Cell |
|