Sub test()Sheets("Sheet1").SelectCells.SelectSelection.CopySheets("汇总").SelectActiveSheet.PasteEnd Sub然后插入一个按钮，链接到这个宏代码即可。
写代码可以实现你这个需求！
