確保當妳打開壹個文件時，數據是可見的，也就是說，妳不必點擊其他工作表。創建壹個新的Excel並將其保存在此文件夾中。只需打開新的Excel，同時按Alt和F11進入宏界面，點擊插入菜單，粘貼以下代碼:
子查找()
申請。ScreenUpdating = False
將MyDir顯示為字符串
MyDir = ThisWorkbook。路徑與路徑。"\"
ChDrive Left(MyDir，1)'查找所有excel文件
ChDir MyDir
Match = Dir$("*。xls”)
做
如果不是LCase(Match)= LCase(this workbook。名字)然後
練習冊。打開匹配，0 '打開
ActiveSheet。之前復制:=ThisWorkbook。紙張(1)'復印紙張
activesheet.name = replace(match，"。xls "，"")
Windows(匹配)。使活動
活動窗口。關閉0
如果…就會結束
Match = Dir$
循環直到Len(Match) = 0
申請。ScreenUpdating = True
末端接頭
在這個界面中直接按F5運行這個宏，文件的所有工作表都會被復制到這個新的工作簿中(這是粗體部分的功能)。妳可以用
=SUM(Sheet2:Sheet18B2)
求這些表格的B2總和。
第二個要求，假設每個文件都在單元格A1或A列，可以用和上面類似的方法把所有記錄提取到壹個工作表中，然後進入宏界面，插入下面的代碼:
函數chf(xStr As String)作為字符串
Dim i，j為整數
Dim xArr()作為字符串
xArr = Split(xStr，"，")
對於i = 0至下界(xArr)
j = InStr(xArr(i)，"-")
如果j & gt那麽0
瑞士法郎=瑞士法郎。“，”& amp中(xArr(i)，j + 1，5) -左(xArr(i)，j - 1) + 1
其他
瑞士法郎=瑞士法郎。“，”& amp1
如果…就會結束
接下來我
chf = Right(chf，Len(chf) - 1)
結束功能
回到Excel並輸入B2。
=瑞士法郎(A2)
公式被復制下來。
然後點擊B列，右鍵，復制，右鍵，選擇性粘貼，賦值；再次單擊菜單中的數據，然後用分隔符將其分開。接下來，選擇逗號並完成。(當然這些也可以直接通過宏來完成。)