1、新建一个页签,以便放汇总数据。 2、按alt+F11,进入宏工具。 3、在你新建的页签上双击,右侧会出现可填写内容的页面 4、输入以下代码: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name X = Rang
任务描述 :把source.xls中的某个sheet 拷贝到 target.xls中去(注意,删除了source.xls中的sheet)。 目标文件名、原文件名、拷贝的sheet名存在当前xls vba文件的A2 B2 C2单元格中 。 Sub 按钮1_Click() Dim source As Workbook Dim target As Workbook Dim name1 As St