12
返回列表 上一主題 發帖

[發問] 請教函數countA如何改用VBA來計算多工作表(感謝)

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
2# 跳轉到 »
發表於 2014-11-23 12:01 | 只看該作者
回復 1# koo
小弟不才,應該有更快的方法,這邊提供您我會的方式
有其他大大也可提出,小弟加以學習
  1. Sub test()

  3.     For i = 2 To 6
  4.         Num = WorksheetFunction.CountA(Sheets(i).Range("A1"))
  5.         Total = Num + Total
  6.     Next
  7.     MsgBox Total
  8.    
  9. End Sub
複製代碼
PKKO

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
12
返回列表 上一主題