成都高档网站建设,网站描述更改,wordpress淘宝优惠券插件,html5 特效网站职场数据处理#xff0c;数据分析汇报与统计的过程中#xff0c;经常会遇到这样的一个问题那就是需要统计的数据源在多个文件中#xff0c;多个工作薄中#xff0c;如果要进行数据处理#xff0c;汇总的时候会很不方便
例如#xff1a; 如果要汇总6个月的数据可能就得需…职场数据处理数据分析汇报与统计的过程中经常会遇到这样的一个问题那就是需要统计的数据源在多个文件中多个工作薄中如果要进行数据处理汇总的时候会很不方便
例如 如果要汇总6个月的数据可能就得需要手动复制了。
再或者用其它方法来进行数据合并。
例如我们可以使用非常高效的VBA来实现文件合并操作。
是不是在想我不会写VBA我也不会语法编辑。
怎么办呢
可以让ChatGPT来帮我们写出代码。
ChatGPT发送Prompt请写个VBA代码将路径为“C:\Users\EDY\Documents\Excel”的文件夹中的所有Excel工作簿合并为一个新的工作簿合并的工作簿也要在该文件夹里新工作簿的每个工作表保留原工作簿对应的文件名 Sub MergeWorkbooks()Dim Path As String, Filename As StringDim wb As Workbook, NewBook As WorkbookDim ws As Worksheet设置文件夹路径Path C:\Users\EDY\Documents\Excel\创建新工作簿Set NewBook Workbooks.Add(xlWBATWorksheet)循环遍历文件夹中的所有工作簿Filename Dir(Path *.xls*)Do While Filename 打开工作簿Set wb Workbooks.Open(Filename:Path Filename)将每个工作表复制到新工作簿For Each ws In wb.Worksheetsws.Copy After:NewBook.Sheets(NewBook.Sheets.Count)重命名工作表为原工作簿的文件名ActiveSheet.Name Left(wb.Name, InStrRev(wb.Name, .) - 1)Next ws关闭打开的工作簿wb.Close SaveChanges:False查找下一个工作簿Filename Dir()Loop保存新工作簿NewBook.SaveAs Filename:Path MergedWorkbook.xlsx, FileFormat:xlOpenXMLWorkbook
End Sub接下来我们来验证这段代码做文件合并。
新建一个Excel文件打开VBA编辑。 接下来将代码粘贴进来。 接下来我们可以在Sheet1将6个Sheet页的数据查找过去。
在Sheet1中我们先做好表格标题如下 接下来我们使用Vlookupindirect组合将不同的工作表的数据查找过来。
VLOOKUP($A2,INDIRECT(B$1!A:C),3,0) 得到完整结果。 AIGC ChatGPT 职场案例 AI 绘画 与 短视频制作 PowerBI 商业智能 68集 数据库Mysql 8.0 54集 数据库Oracle 21C 142集 Office 2021实战应用 Python 数据分析实战 ETL Informatica 数据仓库案例实战 Excel 2021实操 100集 Excel 2021函数大全 80集 Excel 2021高级图表应用89集 Excel 2021大屏可视化制作 56集 Excel 2021实用技巧300集 PPT 2021 商业汇报实战应用69集 数据分析可视化Tableau 80集 数据可视化FineReport 50集 送你各类文档模板PPT表格大屏可视化 超过5000模板 VX: sz1580998 一对一咨询答疑 案例实战 http://t.csdn.cn/zBytu AIGC ChatGPT 职场案例 AI 绘画 与 短视频制作 PowerBI 商业智能 68集 数据库Mysql 8.0 54集 数据库Oracle 21C 142集 Office 2021实战应用 Python 数据分析实战 ETL Informatica 数据仓库案例实战 Excel 2021实操 100集 Excel 2021函数大全 80集 Excel 2021高级图表应用89集 Excel 2021大屏可视化制作 56集 Excel 2021实用技巧300集 PPT 2021 商业汇报实战应用69集 数据分析可视化Tableau 80集 数据可视化FineReport 50集 送你各类文档模板PPT表格大屏可视化 超过5000模板 VX: sz1580998 一对一咨询答疑 案例实战 http://t.csdn.cn/zBytu
