怎样将excel中的几个明细表中的每一条记录依次汇总到一个表中 EXCEL中如何将多个表格中同一个人的数据提取汇总到一张表格...
\u600e\u6837\u5c06excel\u4e2d\u7684\u51e0\u4e2a\u660e\u7ec6\u8868\u4e2d\u7684\u6bcf\u4e00\u6761\u8bb0\u5f55\u4f9d\u6b21\u6c47\u603b\u5230\u4e00\u4e2a\u603b\u8868\u4e2d\u53ef\u4ee5\u5229\u7528VBA\u5c06excel\u4e2d\u7684\u51e0\u4e2a\u660e\u7ec6\u8868\u4e2d\u7684\u6bcf\u4e00\u6761\u8bb0\u5f55\u4f9d\u6b21\u6c47\u603b\u5230\u4e00\u4e2a\u603b\u8868\u4e2d
\u8f6f\u4ef6\u7248\u672c\uff1aOffice2007
\u65b9\u6cd5\u5982\u4e0b\uff1a
1.\u5f53\u524d\u5de5\u4f5c\u7c3f\u4e2d\u6709\u591a\u4e2a\u5de5\u4f5c\u8868\uff0c\u7ed3\u6784\u90fd\u4e00\u6837\u5982\u4e0b\u6240\u793a\uff0c\u5f53\u91cc\u9762\u7684\u6570\u636e\u4e0d\u4e00\u6837\uff0c\u5c06\u5b83\u4eec\u5168\u90e8\u5408\u5e76\u5230\u5f53\u524d\u5de5\u4f5c\u8868\u4e2d\uff1a
2.Alt+F11\uff0c\u6253\u5f00\u5b8f\u754c\u9762\uff0c\u8f93\u5165\u5982\u4e0b\u4ee3\u7801\uff1a
Sub m()
For Each sh In Sheets '\u904d\u5386\u6bcf\u4e2a\u5de5\u4f5c\u8868\uff0c\u63d0\u53d6\u6570\u636e
If sh.Name "Sheet1" Then '\u6392\u9664\u5f53\u524d\u5de5\u4f5c\u8868
sh.Range("A2:C" & sh.Range("A65536").End(3).Row).Copy Range("A" & Range("A65536").End(3).Row + 1) '\u5c06\u5de5\u4f5c\u8868\u4e2d\u7684\u6240\u6709\u6570\u636e\u590d\u5236\u5230\u5f53\u524d\u5de5\u4f5c\u8868\u6700\u540e\u4e00\u884c\u7684\u4e0b\u4e00\u884c\u4e2d
End If
Next
End Sub
3.F5\u6267\u884c\u4ee3\u7801\uff0c\u8fd4\u56deExcel\u5f97\u5230\u7ed3\u679c\u5982\u4e0b\uff0c\u5de5\u4f5c\u8868\u5408\u5e76\u5b8c\u6210\uff1a
可以利用VBA将excel中的几个明细表中的每一条记录依次汇总到一个总表中
软件版本：Office2007
方法如下：
1.当前工作簿中有多个工作表，结构都一样如下所示，当里面的数据不一样，将它们全部合并到当前工作表中：
2.Alt+F11，打开宏界面，输入如下代码：
Sub
m()
For
Each
sh
In
Sheets
'遍历每个工作表，提取数据
If
sh.Name
<>
"Sheet1"
Then
'排除当前工作表
sh.Range("A2:C"
&
sh.Range("A65536").End(3).Row).Copy
Range("A"
&
Range("A65536").End(3).Row
+
1)
'将工作表中的所有数据复制到当前工作表最后一行的下一行中
End
If
Next
End
Sub
3.F5执行代码，返回Excel得到结果如下，工作表合并完成：
如果你的意思是当你在销售明细表中添加了一条新的销售记录，然后自动就添加到汇总表上，这个最好是用VBA来实现。
绛旓細鍗筹紳锛夊悗锛屽皢榧犳爣鐐瑰嚮琛2鏍囩杩涘叆绗2寮犺〃锛岄変腑璇ヨ〃鐨凙1锛岀劧鍚庤緭鍏ュ姞鍙凤紙鍗+锛夛紝灏嗛紶鏍囩偣鍑昏〃3鏍囩杩涘叆绗3寮犺〃锛岄変腑璇ヨ〃鐨凙1锛屾寜鍥炶溅閿‘璁ゅ嵆鍙紝浠ュ悗鍙绗簩寮犺〃A1鍜岀涓夊紶琛ˋ1鐨勫唴瀹瑰彉鍖栵紝琛1涓殑A1浼氶殢鐫鑷姩鏀瑰彉銆傛垨鑰咃紝鐩存帴鍦ㄧ涓寮犵殑A1涓洿鎺ヨ緭鍏ヤ互涓嬪唴瀹癸細=Sheet2!A1+Sheet2!A1 ...
绛旓細1銆佹墦寮EXCEL锛屽崟鍑汇愯鍥俱戔斺斻愬垏鎹㈢獥鍙ｃ戯紝鍙互鍦ㄥ涓枃妗ｄ箣闂寸浉浜掑垏鎹紝濡傚浘鎵绀恒2銆佸彲浠ョ偣鍑汇愬苟鎺掓煡鐪嬨戯紝寮瑰嚭閫夋嫨骞舵帓姣旇緝鐨勮〃鏍锛屽彲浠ュ姣斾袱涓〃鏍 3銆佸湪浠讳竴涓伐浣滆〃涓紝鎿嶄綔鈥滆鍥锯斺斿叏閮ㄩ噸鎺掆斺斿瀭鐩村苟鎺掆濓紝涔熷彲浠ヨ宸ヤ綔绨垮湪涓涓獥鍙ｄ腑鏄剧ず銆4銆佺偣鍑汇愭枃浠躲戔斺斻愰夐」銆戔斺斻愰珮绾с戔...
绛旓細浣犵殑闂姣旇緝妯＄硦锛屾牴鎹綘鎻愰棶鐨勬剰鎬濓紝鏈変互涓嬪嚑绉嶆儏鍐碉細1銆佸鏋滄槸瑕佹妸鍑犲紶琛ㄥ悎鍒颁竴涓伐浣滅翱涓紝绠鍗曠殑澶嶅埗绮樿创涓涓嬪氨琛屼簡锛屾垨鍙冲崟鍑诲伐浣滆〃鏍囩锛屽鍒舵垨绉诲姩---寤虹珛鍓湰---鍒版眹鎬诲伐浣滅翱涓幓灏辫浜 2銆佸鏋滄槸瑕佹妸鍑犲紶鏈夌殑鍐呭鍚堝苟鍒颁竴寮犲伐浣滆〃涓紝灏辩敤涓涓畝鍗曠殑鈥=鈥濓紝姣忎竴涓瓧娈佃缃ソ鍚庯紝灏...
绛旓細1銆佷复鏃舵х殑灏戦噺宸ヤ綔绨垮皯閲忓伐浣滆〃鐨勬儏鍐碉紝鎴戜滑鐩存帴澶嶅埗绮樿创鏁版嵁鍗冲彲銆傝繖绉嶆儏鍐典笉浼氳姳澶鏃堕棿锛屽嵆浣胯亴鍦哄皬鐧界粷澶у鏁伴兘鏄彲浠ヨ交鏉句笂鎵嬨2銆佸鏋滆鍚堝苟鐨凟xcel鏂囦欢鏍煎紡鏄疌SV锛屽彲浠ョ敤Windows 鎵瑰鐞嗗懡浠よ繘琛屽鐞嗐備絾鎯冲繀杩欑鏂规硶寰堝喎闂ㄣ傛帉鎻＄殑浜哄氨涓嶅彲鑳戒細涓轰簡鍚堝苟鍑犱釜Excel鑰岀姱鎰併3銆侀氳繃VBA浠ｇ爜杩涜鍚堝苟銆
绛旓細鎯宠鍦ㄤ竴涓琛ㄦ牸閲岄潰浣撶幇鍑犱釜閮ㄩ棬鐨勬棩鎶ヨ〃鏂规硶濡備笅锛1銆佺數鑴戞墦寮Excel琛ㄦ牸銆2銆佹墦寮Excel鍚庯紝鍦ㄤ竴琛屼腑杈撳叆鎵鏈鏄庣粏锛屾瘮濡傛棩鏈熴侀儴闂ㄣ佺墿鍝併佹暟閲忕瓑銆3銆佽緭鍏ユ槑缁嗗悗锛屾湁浜洪鐢ㄤ箣鍚庯紝灏辩櫥璁颁竴琛屻4銆佺劧鍚庨変腑鎵鏈夊崟鍏冩牸锛岀偣鍑诲姞涓婃绾裤5銆侀変腑鏄庣粏杩欎竴鏍忥紝鍔犱釜搴曡壊灏辨瘮杈冪編瑙備簡銆
绛旓細鏂规硶1锛琛ㄦ牸涓嶈皟鏁淬傞夊畾浣犵殑鍥捐〃1锛岀偣鍙抽敭閫夊畾鈥滄簮鏁版嵁鈥濄傚湪婧愭暟鎹彍鍗曚腑涓婃柟鏍囬鏍忛夆滅郴鍒椻濓紝鐒跺悗鍑虹幇濡傚浘 鐐瑰嚮鈥滃硷紙V锛夆濈殑鍙宠竟鎸夐挳锛屽厛閫夊畾绗竴鍒3涓櫨鍒嗘瘮锛岀劧鍚庯紝鎸夆淐trl鈥濆悓鏃跺啀閫夊畾鍚庨潰鍑犵粍闇瑕佺殑澶囦唤姣旀暟鎹俹k 鐐瑰嚮鈥滃垎绫伙紙X锛夎酱鏍囧織鈥濆彸杈规寜閽紝濡備笂鍒嗗埆閫夊畾渚涜揣鍘傚銆俹k 鈥滅‘瀹氣濄
绛旓細鍑虹幇浠ヤ笅鐨勫畯鐣岄潰锛屽湪鈥滃畯鍚嶁濅腑鎸夌収鑷繁鍠滃ソ褰曞叆涓涓悕绉帮紝杩欓噷褰曞叆鈥滃悎骞跺伐浣滆〃鈥濈殑鍚嶇О锛屸滀綅缃濇槸鎸囪瀹忓彲浠ュ湪閭ｄ釜EXCEL宸ヤ綔绨夸腑浣跨敤锛岃繖閲岄夋嫨鈥滃綋鍓嶅伐浣滅翱鈥濄傜劧鍚庣偣鍑烩滃垱寤衡濄傚嚭鐜颁互涓嬬殑瀹忓綍鍏ョ晫闈 Sub 鍚堝苟宸ヤ綔琛()鈥濅笅闈紝灏嗕互涓嬬殑瀛楃澶嶅埗绮樿创杩囧幓 Dim m As Integer Dim n As Integer Di...
绛旓細Excel涓鍚堝苟鍗曞厓鏍兼槸娌℃湁榛樿蹇嵎閿殑锛屼絾鏄彲浠ラ氳繃浠ヤ笅鏂规硶璁剧疆锛氫竴銆侀鍏堢偣鍑诲揩閫熷伐鍏锋爮鏈鍙宠竟鐨勫皬绠ご锛岃繘鍏ュ叾浠栧懡浠ら夐」椤碉紱浜屻佸湪宸﹁竟杩欎竴鍒楁壘鍒板悎骞舵寜閽偣鍑讳腑闂存坊鍔狅紝浼氬彂鐜板姞鍒板彸杈圭殑鎸夐挳閲屼簡锛涗笁銆佹寜纭閫鍑猴紝鍚堝苟鎸夐挳宸茬粡鍑虹幇鍦ㄥ揩閫熷伐鍏锋爮閲屼簡锛岀洿鎺ョ偣鍑诲氨鍙互浣跨敤浜嗭紱鍥涖佸鏋滆浣跨敤閿洏涓婄殑...
绛旓細2. 鍒╃敤Excel鐨“澶嶅埗绮樿创”鍔熻兘锛屾墜鍔ㄦ暣鐞嗘暟鎹3. 浣跨敤绗笁鏂规彃浠舵垨宸ュ叿锛屽疄鐜版壒閲忓悎骞躲傛帴涓嬫潵杩涜 1. 浣跨敤“鏁版嵁”鑿滃崟涓殑“鍚堝苟琛ㄦ牸”鍔熻兘锛欵xcel鑷甫鐨“鏁版嵁”鑿滃崟涓紝鏈変竴涓“鍚堝苟琛ㄦ牸”鐨勫姛鑳斤紝杩欎釜鍔熻兘鍏佽鐢ㄦ埛杞绘澗鍦板皢澶氫釜琛ㄦ牸鍚堝苟鎴愪竴...
绛旓細鍏充簬鎬庝箞鎶婂嚑涓猠xcel琛ㄦ牸鍚堟垚涓涓〃鏍艰繖涓緢澶氫汉杩樹笉鐭ラ亾锛屼粖澶╂潵涓哄ぇ瀹惰В绛斾互涓婄殑闂锛岀幇鍦ㄨ鎴戜滑涓璧锋潵鐪嬬湅鍚э紒1銆佸鍥撅細鏈変簩涓伐浣滅翱锛屾瘡涓涓伐浣滅翱涓兘鏈夎嫢骞蹭釜宸ヤ綔琛紝鍦ㄥ仛鍚堝苟涔嬪墠锛屾垜浠灏嗚繖涓や釜宸ヤ綔琛ㄦ墦寮銆2銆2銆佸湪鍏朵腑涓涓伐浣滅翱閫夋嫨鎵鏈夌殑宸ヤ綔琛紝鏂规硶鏄厛閫夋嫨绗竴涓伐浣滆〃锛屾寜浣弒hift閿...
