@文心快码sub 合并当前工作簿下的所有工作表() on error resume next application.screenupdating = false application.displayalerts = false set st = worksheets.add(before:=sheets(1)) st.name = "合并" for each shet in sheets: if shet.name <> "合并" then i = st.range("a" & rows.count)....