沒看懂你的意思。你是想在不同的工作簿中呼叫同一段vba程式嗎?你可以試試將宏儲存在個人宏工作簿中。 對補充問題的回覆：既然你知道錄製宏，可以將修改的程式碼新增在下面的程式碼裡。實現遍歷該檔案所在目錄下的所有檔案。Sub test() Application.ScreenUpdating = False p = ThisWorkbook.Path & "\" f = Dir(p & "*.xls") m = ThisWorkbook.Name Do If f m Then Workbooks.Open (p & f) "需要你自己新增的程式碼 ActiveWorkbook.Save ActiveWorkbook.Close End If f = Dir Loop Until f = "" Application.ScreenUpdating = TrueEnd Sub