返回列表 上一主題 發帖

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2014-11-23 13:14 | 顯示全部帖子
回復 3# GBKEE


    MsgBox [COUNTA(Sheet2:Sheet6!A1)]
感謝超版指教,好特別的語法,但小弟試了一下,我把分頁的A1都刪除了,結果還是1,填滿也是1?
PKKO

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題