点击 Thisworkbook 复制 代码 ： Sub 重命名() Dim i For i = 1 To Sheets.Count Sheets(i).Name = Sheets(1).Cells(i, 1) Next End Sub 返回 Excel 界面，在控件下面选择按钮控件 指定宏 点击 其他 单元格 使得 按钮处...

Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path \ sht.Name, FileFormat:=xlNormal 将工作簿另存为EX...

A B 两个文件， 要在同个文件夹中，比如在桌面 ，然后同时打开 右键 选择 移动或复制工作表 你可以选择 B文件.xls 看上面图片 工作表 1 复制过来了。...

看上面图片， 点击 office 图标 新建一个新的工作表了！ 插入新的工作表： 03版：点插入---工作表 ！ 07版：快捷键是：shift+F11...