將各個子公司的excel里的數(shù)據(jù)匯總到一個excel里冠胯,子公司的excel以子公司的名字命名梨撞,如取經(jīng).xlsx
幼东、西天.xlsx
image.png
基本思路
公司添加分為替換和添加兩部分
默認(rèn)匯總表里有10個公司的名字,都是在項目一個row中窜锯,所以先可以先通過替換的方式完成
艘刚,基本流程:
- 運行腳本管宵,出現(xiàn)彈窗
- 輸入原始數(shù)據(jù),如
子公司1
攀甚,和替換數(shù)據(jù)取經(jīng)
- 遍歷所有的sheet進(jìn)行替換
如何默認(rèn)的10個子公司占位替換完了箩朴,那么就在項目的一行添加公司名,然后在同列的項目行添加同一個公司名
使用教程
注意:使用宏修改的內(nèi)容無法撤銷秋度,記得操作之前先備份Uㄅ印!<运埂埠居!
開啟控制面板
image.png
修改原始內(nèi)容
- 原始內(nèi)容是原來每個工作表里的項目一欄中的公司名稱查牌,比如子公司1、子公司2
- 在公司名一欄里輸入新內(nèi)容之后滥壕,點擊
替換按鈕
纸颜,所有的子公司1就會變成下方公司名內(nèi)的內(nèi)容
image.png
導(dǎo)入公司數(shù)據(jù)
導(dǎo)入公司數(shù)據(jù)功能暫時不是很穩(wěn)定,很依賴被導(dǎo)入的數(shù)據(jù)的結(jié)構(gòu)匹配绎橘,可能還有更簡單的方法
在修改公司名之后胁孙,就可以往該列中導(dǎo)入其他excel中的數(shù)據(jù),這里依賴幾點
- 被導(dǎo)入的Excel的工作表名字相同称鳞,比如都有『貨幣基金』這個工作表
- 被導(dǎo)入的Excel中需要有和公司名匹配的列涮较,比如匯總表里是『西天』,在選擇的excel中也要有『西天』這列
- 導(dǎo)入的公司名不能重復(fù)冈止,否則會覆蓋?衿薄!熙暴!
操作步驟
- 在工作表內(nèi)填寫要導(dǎo)入的工作表闺属,比如默認(rèn)的『貨幣基金』
- 在彈窗的窗內(nèi)選擇要導(dǎo)入的excel,目前只有單選
- 系統(tǒng)自動打開excel怨咪,并導(dǎo)入屋剑,然后自動關(guān)閉打開的excel
vba學(xué)習(xí)
參考資料:https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbooks-open-method-excel