2020年11月18日
简单粗暴-将多个excel汇总的一个excel的不同sheet
摘要： 将待合并的excel放到同一目录，右键sheet查看代码，插入如下代码（不用新建excel再插入） Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePi 阅读全文
posted @ 2020-11-18 17:32 大威1030 阅读(1006) 评论(0) 推荐(0)
简单粗暴-根据指定的名称批量生成sheet页命名
摘要： 新建excel ，在sheet1 A列设置待批量命名的sheet名称，右键sheet1查看代码，插入下面代码 Sub 批量添加工作表() Dim Sh As Worksheet, i As Long Sheets.Add After:=Sheets(Sheets.Count), Count:=Wor 阅读全文
posted @ 2020-11-18 17:19 大威1030 阅读(1003) 评论(0) 推荐(0)
简单粗暴-将多个excel汇总到一个excel的sheet
摘要： 首先将待合并的excel都放到一个文件目录下 新建一个excel右键sheet查看代码 复制如下代码 Sub Macro1() Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m& Set sh = ActiveSheet MyPat 阅读全文
posted @ 2020-11-18 16:56 大威1030 阅读(1651) 评论(0) 推荐(0)
简单粗暴-同一excel多个sheet合并到一个sheet
摘要： 话不多说直接上vba代码，PS：百度发现好多该代码，无法标注原作者，见谅 Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveShee 阅读全文
posted @ 2020-11-18 15:09 大威1030 阅读(1016) 评论(0) 推荐(0)