如何利用excel汇总多张相同样式表格的数据？ 如何把多个相同格式的Excel表格数据快速的合并到一张表格中
\u600e\u6837\u8fc5\u901f\u6c47\u603b\u76f8\u540c\u683c\u5f0f\u7684\u591a\u5f20EXCEL\u8868\u683c\uff1f\u6750\u6599/\u5de5\u5177\uff1aExcel2010
1\u3001\u4ee5\u56fe\u4e2d\u6240\u793a\u8868\u683c\u4e3a\u4f8b\uff0c\u4e94\u4e2asheet\u7684\u683c\u5f0f\u5b8c\u5168\u76f8\u540c\uff1b
2\u3001\u67e5\u770b\u4e00\u5b63\u5ea6\u3001\u4e8c\u5b63\u5ea6\u7b49sheet\u4e5f\u53ef\u770b\u5230\uff0c\u6bcf\u4e2a\u8868\u683c\u7684\u683c\u5f0f\u662f\u5b8c\u5168\u76f8\u540c\u7684\uff0c\u4e0d\u540c\u7684\u53ea\u662f\u8868\u683c\u5185\u5bb9\u6570\u636e\u4e0d\u540c\uff1b
3\u3001\u56de\u5230\u201c\u6c47\u603b\u201dsheet,\u5728\u7b2c\u4e00\u4e2a\u8ba1\u7b97\u6c47\u603b\u503c\u7684\u5355\u5143\u683cB2\u8f93\u5165\u4ee5\u4e0b\u516c\u5f0f\u201c=sum('*'!B2)\u201d\uff1b
4\u3001\u8f93\u5165\u5b8c\u6210\u540e\uff0c\u6309\u56de\u8f66\u952e\uff0c\u8fd9\u65f6\u5019\u5df2\u7ecf\u8ba1\u7b97\u597d\u8fd9\u4e2a\u5355\u5143\u683c\u4e86\uff1b
5\u3001\u901a\u8fc7\u5355\u5143\u683c\u516c\u5f0f\u62d6\u52a8\uff0c\u8fd9\u65f6\u5019\u5c31\u5f97\u5230\u51c6\u786e\u7684\u7ed3\u679c\u4e86\uff01
1\u3001\u5047\u8bbe3\u67081\u65e5\u81f33\u670810\u65e5\u7684\u6570\u636e\u9700\u8981\u5408\u5e76\u548c\u6c47\u603b\uff0c\u5e76\u6253\u5f00\u8ba1\u7b97\u673a\u6570\u636e\u9762\u677f\u3002
2\u3001\u521b\u5efa\u4e00\u4e2a\u65b0\u7684\u7a7a\u767d\u6587\u4ef6\u5939\uff0c\u5e76\u5c06\u5408\u5e76\u7684\u8868\u5355\u653e\u5728\u8be5\u6587\u4ef6\u5939\u4e2d\u3002
3\u3001\u521b\u5efa\u65b0\u7684\u7a7a\u767dexcel\u8868\u5355\u3002
4\u3001\u5355\u51fbexcel\u8868\u5355\u4e2d\u7684\u6570\u636e->\u5408\u5e76\u8868\u5355->\u5c06\u591a\u4e2a\u5de5\u4f5c\u8868\u5408\u5e76\u5230\u4e00\u4e2a\u5de5\u4f5c\u8868\u4e2d\u3002
5\u3001\u5355\u51fb\u6dfb\u52a0\u6587\u4ef6\u6dfb\u52a0\u8981\u5408\u5e76\u7684excel\u6570\u636e\u8868\u3002
6\u3001\u5b8c\u6210\u4e0a\u4e00\u6b65\u540e\uff0c\u53d6\u6d88\u9009\u4e2d\u65b0\u521b\u5efa\u7684excel\u8868\u683c\uff0c\u5355\u51fb\u5de6\u4e0b\u89d2\u7684\u9009\u9879\uff0c\u9009\u62e9\u8868\u683c\u6807\u9898\u4e2d\u7684\u884c\u6570\u4e3a1\uff0c\u7136\u540e\u5355\u51fb\u5f00\u59cb\u5408\u5e76\u3002
7\u3001\u5b8c\u6210\u540e\uff0c\u4e24\u4e2a\u5de5\u4f5c\u7c3f\u5c06\u51fa\u73b0\u5728\u65b0\u7684excel\u8868\u4e2d\uff0c\u4e00\u4e2a\u662f\u5408\u5e76\u62a5\u8868\uff0c\u663e\u793a\u6570\u636e\u5408\u5e76\u662f\u5426\u6210\u529f\uff0c\u53e6\u4e00\u4e2a\u662f\u5408\u5e76\u5de5\u4f5c\u7c3f\u3002
假设：每个报表是关于三个城市的每季度的业务数字，如图，想要把这四张表格，汇总成一张表格。
点击上图的“+”号，新建一个表格，重命名为“全年”。
单击“数据”选项卡——“数据工具”组中的“合并计算”，弹出“合并计算”对话框。
选中“首行”、“最左列”、“创建指向数据源的链接”三个复选框，单击“引用位置”右侧的按钮；单击第一季度的表，选中表格内容，返回。
第一季度表已经被汇总。
重复上述步骤，将第二、第三、第四季度的表汇总。
技巧：如果表格名称规范、表哥范围固定，可以在“引用位置”里直接修改表名，然后单击“添加”。数据汇总完成。
可以展开左侧的“+”号，查看每个项目包含的分表数据。
注意：上述“数据合并”，其实每个表不一定完全一样，比如有一个表多一列，有一个有很多行，只要指定的合并范围正确，都可以正确合并。
弄个程序 收集 合并后再 用透视表或者 Sumif 汇总， 可以直接统计 有多少个单位 避免遗漏
多个Excel 档放到 一个文件夹内
新建一个Excel档----Alt+F11 视图--代码窗口，把如下代码复制进去，按F5运行即可（如复制进去没有换行，先复制到Word 再复制进去） , 注意 收集 sheet1 的, sheet1 A 列不能为空,因为以A 列的行数为准
Sub 遍历当前文件夹下工作薄()
t = Timer
Application.ScreenUpdating = False
ActiveSheet.Range("2:10000").ClearContents
Dim i, r, wk As Workbook, sh As Worksheet, rr
p = ThisWorkbook.Path & "\"
s = Dir(p & "*.xls*")
Do While s <> ""
If s <> ThisWorkbook.Name Then
Set wk = Workbooks.Open(p & s)
arr = wk.Sheets("sheet1").UsedRange
r = UBound(arr)
For i = 2 To r
Set sh = wk.Sheets("sheet1")
With ThisWorkbook.Worksheets("sheet1")
rr = ThisWorkbook.Worksheets("sheet1").[A65536].End(xlUp).Row + 1
For j = 1 To 20
Cells(rr, j).Value = sh.Cells(i, j)
Next j
End With
Next i
wk.Close
End If
s = Dir
Loop
t1 = Timer - t
MsgBox ("所有工作薄收集完成,用时" & t1 & "秒")
Application.ScreenUpdating = True
End Sub
可以用vba完成.
下面的宏将选中的目录下所有文件的第一个工作表的b2单元格的值求和后放在当前文件第一个工作表的a1单元格.
Sub 数据汇总()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then Exit Sub
p = .SelectedItems(1) & "\"
End With
Application.ScreenUpdating = False
f = Dir(p & "*.xls")
With ThisWorkbook.Sheets(1)
Do While f <> ""
Set w = Workbooks.Open(p & f)
.Range("a1").Value = .Range("a1").Value + w.Sheets(1).Range("b2").Value
'可以仿照上句增加其它需要汇总的单元格.
w.Close False
f = Dir
Loop
End With
Application.ScreenUpdating = True
End Sub
用VF这个简单
绛旓細灏鍚涓涓伐浣滆杽涓澶氬紶琛ㄥ唴瀹姹囨骞跺紩鐢ㄥ埌涓涓伐浣滆〃涓殑鏂规硶鏄紝鐢鏉′欢姹傚拰鍑芥暟sumif(),濡傛灉鏉′欢姣旇緝澶氾紝2003浠ヤ笂鐗堟湰鍙互澶氭潯浠舵眰鍜屽嚱鏁皊umifs()锛屽叕寮忕敤娉曪細=sumif(鏉′欢鍦ㄥ摢鍒楋紝鏉′欢鏄粈涔堬紝姹傚拰鍒楋級1銆佸彧闇涓涓潯浠剁殑姹傚拰锛 鍏紡锛=SUMIF(Sheet2!B:B,B2,Sheet2!C:C)+SUMIF(Sheet3!B:B,...
绛旓細瑕佹兂鍚堝苟璁＄畻鏁版嵁锛岄鍏堝繀椤讳负姹囨淇℃伅瀹氫箟涓涓洰鐨勫尯锛岀敤鏉ユ樉绀烘憳褰曠殑淇℃伅銆傛鐩爣鍖哄煙鍙綅浜庝笌婧愭暟鎹鐩稿悓鐨勫伐浣滆〃涓婏紝鎴栧湪鍙︿竴涓伐浣滆〃涓婃垨宸ヤ綔绨垮唴銆傚叾娆★紝闇瑕侀夋嫨瑕佸悎骞惰绠楃殑鏁版嵁婧愩傛鏁版嵁婧愬彲浠ユ潵鑷崟涓伐浣滆〃銆佸涓伐浣滆〃鎴栧閲嶅伐浣滅翱涓傚湪Excel2000涓紝鍙互鏈澶氭寚瀹255涓簮鍖哄煙鏉ヨ繘琛屽悎骞惰绠...
绛旓細Excel濡備綍鍚堝苟鐩稿悓椤癸紝瀹為檯灞炰簬鍒嗙被姹囨鐨勪竴涓搷浣滐紝浠婂ぉ浣滆呭皢鍒╃敤涓涓暟鎹〃鏉ヨ瑙ｅ畠鐨勬搷浣溿傚湪涓嬫柟鏁版嵁琛ㄤ腑锛屾槸浣滆呭鍑虹殑鎵鏈夊凡鍏憡鐨勪笂甯傚叕鍙2022骞村勾鎶ヤ笟缁╅鍛婏紝鐜板湪闇瑕佹牴鎹滅敵涓囦簩绾ц涓氣濆垪锛屽鎵鏈2755鏉℃暟鎹繘琛屽悓绫婚」鐨勫悎骞讹紝绠瑷涔嬪氨鏄皢鐩稿悓琛屼笟鍚堝苟鍒颁竴璧枫傜洿鎺ヨ繘鍏ユ搷浣溿傞鍏堢偣鍑绘暟鎹伐鍏锋爮...
绛旓細浣跨敤excel杞欢缁忓父浼氶亣鍒澶氬紶琛ㄦ眹鎬荤殑鎯呭喌锛岄偅excel澶氬紶宸ヤ綔琛ㄦ暟鎹揩閫熸眰鍜屽埌涓寮犳眹鎬琛ㄦ庝箞鎿嶄綔鍛?涓嬮潰鎴戜滑灏辨潵鐪嬩笅鍚с1銆佺偣鍑诲搴﹂攢閲忥紝绗竴琛岀涓鍒椼傞変腑鈥滄暟鎹-鈥滃悎骞惰绠椻濆湪寮瑰嚭瀵硅瘽妗嗕腑锛屽嚱鏁伴夋嫨鈥滄眰鍜屸濓紝鍦ㄥ紩鐢ㄤ綅缃彸杈规寜閽夋嫨鏁版嵁锛岄夋嫨绗竴寮犲伐浣滆〃鏁版嵁锛岀偣鍑汇愭坊鍔犮戞寜閽紝鍐嶉夋嫨涓嬪紶...
绛旓細1銆侀鍏堝湪涓涓獥鍙ｄ腑鎵撳紑涓や釜琛紝sheet1鍜宻heet2.2銆佺劧鍚庡湪sheet1琛ㄤ腑鎯宠鎵鹃噸澶嶅肩殑鏁版嵁鍚庨潰杈撳叆鈥=if(A1=鈥濓紝A1鏄暟鎹墍鍦ㄩ偅涓鍒楃殑鍒楀悕銆3銆佺劧鍚庡垏鎹㈣嚦Sheet2涓紝閫夋嫨鏁版嵁鍖哄煙锛屽苟鎸夊洖杞﹂敭銆4銆佸洖鍒皊heet1琛紝鍙戠幇鍏紡鍙樹负浜嗏=if(A1=Sheet2!A1:A12鈥5銆佸皢鍏ず琛ュ畬涓衡=if(A1=Sheet2!A1:...
绛旓細1.宸ヤ綔绨夸腑鏈澶氬紶宸ヤ綔琛紝A鍒楀拰B鍒楅兘鏈夌被浼肩殑鏁版嵁锛岃鏁颁笉鍚屻2.閫変腑鈥姹囨鈥濊〃A1鍗曞厓鏍硷紝鐐瑰嚮銆愭暟鎹-銆愬悎骞惰绠椼戙3.宸︿笂瑙掗夋嫨閫傚綋鐨勮繍绠楁柟寮忥紝鏈緥涓衡滄眰鍜屸濄傚涓嬪浘鎵绀虹偣鍑婚夋嫨鎸夐挳閫夋嫨鏁版嵁銆4.閫変腑绗竴寮犲伐浣滆〃鏁版嵁锛屽苟鐐瑰嚮銆愭坊鍔犮戞寜閽5.椤哄簭灏嗗叾浠栧伐浣滆〃鏁版嵁涔熸坊鍔犺繘鏉ャ6.鐢变簬...
绛旓細1銆佸厛灏嗛渶瑕姹囨鐨勮〃鏍兼墦寮锛屾墦寮涔嬪悗锛屽彲浠ョ湅鍒伴噷闈㈡湁鐩稿悓鐨勫悕瀛椼2銆侀変腑闇瑕佹眹鎬荤殑鍗曞厓鏍煎唴瀹癸紝鐐瑰嚮宸ュ叿鏍忎笂鏂圭殑鏁版嵁銆3銆佹帴鐫鍦ㄦ暟鎹夐」涓嬫柟鐐瑰嚮楂樼骇閫夐」锛岃繘鍏ュ埌涓嬩竴涓〉闈4銆佸湪楂樼骇閫夐」閲岄潰閫変腑鏁版嵁鍖哄煙锛岀劧鍚庡嬀閫夐夋嫨涓嶉噸澶嶇殑璁板綍锛岀偣鍑荤‘瀹氥5銆佺偣鍑讳簡纭畾涔嬪悗锛屽氨鍙互鐪嬪埌鐩稿悓鍚嶅瓧鐨勫鎴峰凡缁忔眹鎬...
绛旓細鍦Excel涓锛屼綘鍙互浣跨敤"鏁版嵁閫忚琛"鎴"楂樼骇绛涢"绛夊姛鑳芥潵鎻愬彇鐩稿悓椤瑰苟姹囨銆傛暟鎹忚琛ㄧ殑鏂规硶锛1. 閫夋嫨鏁版嵁鍖哄煙锛氶鍏堬紝鎵撳紑浣犵殑Excel琛ㄦ牸锛岄夋嫨鍖呭惈浣犻渶瑕佹眹鎬荤殑鏁版嵁鐨勫尯鍩熴2. 鎻掑叆鏁版嵁閫忚琛細鎺ョ潃锛岀偣鍑籈xcel鑿滃崟鏍忎笂鐨勨滄彃鍏モ濓紝鐒跺悗閫夋嫨鈥滄暟鎹忚琛ㄢ濄傚湪寮瑰嚭鐨勫璇濇涓紝纭浣犵殑鏁版嵁鍖哄煙鍜屾斁缃...
绛旓細1銆侀鍏堬紝鎴戜滑鍒涘缓涓や釜宸ヤ綔琛紝骞惰緭鍏ヤ笉鍚屽唴瀹规潵婕旂ず锛屾垜闇瑕佹妸杩欎袱涓伐浣滆〃鍚堝苟銆傛垜浠悓鏃舵墦寮杩欎袱涓伐浣滆〃銆2銆佷负婕旂ず鏂逛究锛屾垜鎶婅〃1鐨勫伐浣滅翱鏍囩鏀规垚鈥滃伐浣1銆2銆3鈥濈殑褰㈠紡锛屽彸閿偣鍑诲叾涓竴涓爣绛撅紝閫夋嫨鈥滈夊畾鍏ㄩ儴宸ヤ綔琛ㄢ濓紝灏辫兘鍏ㄩ夎〃1鐨勫唴瀹广傚啀娆″彸閿偣鍑讳竴涓嬶紝閫夋嫨鈥滅Щ鍔ㄦ垨澶嶅埗宸ヤ綔琛ㄢ濄3銆...
绛旓細6. Excel 浼氬湪閫変腑鑼冨洿鍐呮煡鎵捐鍊硷紝骞跺皢鍖归厤鐨勫崟鍏冩牸楂樹寒鏄剧ず銆7. 缁х画鐐瑰嚮鈥滄煡鎵句笅涓涓濇寜閽紝鐩村埌鎵惧埌鎵鏈夊尮閰嶉」銆8. 濡傛灉鎯宠鏇挎崲鍖归厤椤癸紝鍒欏彲浠ュ湪鈥滄浛鎹⑩濇涓緭鍏ヨ鏇挎崲鎴愮殑鍊硷紝鐒跺悗鐐瑰嚮鈥滃叏閮ㄦ浛鎹⑩濇寜閽垨鈥滄浛鎹⑩濇寜閽繘琛屾浛鎹傚湪Excel涓鏌ユ壘鐩稿悓鐨勬暟鎹紝鍙互浣跨敤鈥滄潯浠舵牸寮忊濆姛鑳芥潵瀹炵幇銆傚叿浣...
