Set Fld = FSO . get folder(this workbook 。路徑與路徑 。" \ Data \ ")'讀取要匯總的數(shù)據(jù)所在的文件夾 。
如果Fld 。Files . Count & gt那么0
應(yīng)用 。ScreenUpdating = False
用于Fld中的每個(gè)Fl 。文件
工作簿 。打開(左前)
arr = activeworkbook 。工作表(1) 。[B3: E5]'將每個(gè)表格數(shù)據(jù)區(qū)域中需要匯總的值分配給數(shù)組arr 。
For i = 1到3 '逐行
對(duì)于j = 1到4 '逐列
If IsNumeric(arr(i，j))那么brr(i，j) = brr(i，j) arr(i，j)
'累加如果單元格是數(shù)字 。
下一個(gè)
下一個(gè)
ActiveWorkbook 。關(guān)閉
下一個(gè)
應(yīng)用 。ScreenUpdating = True
thisworkbook.worksheets (1) 。[B3: E5] = brr '將匯總數(shù)據(jù)寫入?yún)R總表的相應(yīng)區(qū)域 。
MsgBox "數(shù)據(jù)摘要已完成"
其他
MsgBox "找不到工作簿文件"
結(jié)束If
結(jié)束Sub
希望這個(gè)例子可以幫助你減輕重復(fù)計(jì)算的痛苦 。
,

推薦閱讀

• 

  狼瘡可以轉(zhuǎn)陰嗎 狼瘡全部轉(zhuǎn)陰是痊愈嗎
• 

  鵪鶉會(huì)自己孵蛋嗎
• 

  三星i308的一些使用感受
• 

  喝茶可以養(yǎng)生哪種茶最健康呢
• 

  重慶網(wǎng)紅玻璃橋在哪里 重慶玻璃橋地址在哪里
• 

  富陽(yáng)高層次人才哪些房產(chǎn)不納入補(bǔ)貼核查范圍？
• 

  鍵盤插在主機(jī)哪里 原來(lái)臺(tái)式機(jī)電腦鍵盤插在這兒
• 

  Win10設(shè)置共享文件夾的方法 win10共享文件夾怎么設(shè)置
• 

  芙麗芳絲洗面奶有顆粒感的嗎 芙麗芳絲洗面奶成分表詳細(xì)
• 

  書中的感人語(yǔ)錄
• 

  ipad怎么開分屏功能
• 

  釣青魚黑坑怎么調(diào)漂 青魚黑坑怎么好釣
• 

  腳臭英文怎么說(shuō) 怎么有臭腳味道呢英語(yǔ)
• 

  蟶蒸粉絲怎么做好吃 怎么做粉絲炒蟶子
• 

  諾基亞N8論壇 諾基亞n82論壇
• 

  信陽(yáng)到廣州東硬臥多少錢，k259次列車信陽(yáng)至廣州票價(jià)是多少

• 如何刪除電腦中多余的盤符
• 想制作一個(gè)統(tǒng)計(jì)表格怎么制作
• 廣州長(zhǎng)隆水上樂(lè)園門票價(jià)格表
• 列車時(shí)刻表車次查詢
• 想買快1000塊左右的手表
• 索尼表示這些電視已經(jīng)為PlayStation 5準(zhǔn)備就緒
• 蒂姆庫(kù)克表示蘋果不會(huì)通過(guò)收購(gòu)來(lái)遏制競(jìng)爭(zhēng)
• 華為以年度最佳智能手機(jī)相機(jī)和最佳智能手表而著稱
• 桃子怎樣挑選的好吃
• Excel表格WPS表格如何快速添加數(shù)值的千位分隔符 wps如何將一個(gè)表格添加分隔線