最近公司做技术调查,用钉钉统计后生成一个excel文件,生成的文件并不直观,看的话很不方便,就需要将生成的excel文件中的数据做一下处理,然后放到另一个模板excel文件中,如果一条数据一条数据去整理的话会累死人,所以领导让写一个宏程序,也就是用VBA写一个小程序,以后就都可以使用这个程序来实现这个功能。由于之前没有接触过VBA,搞得头大,记录一下,以后遇见类似的可以参考。
生成的文件的数据大概是这种的:
现在需要将上图里的数据取出来整理好放到模板里面,并且只取模板里需要的数据。接下来上代码。
Sub test()
’下面两句话是提升运行速度的
Application.ScreenUpdating = False
Application.DisplayAlerts = False
‘运行时清空内容[行:行],就是多少行到多少行清空
[15:26].ClearContents
‘创建一个本文件对象
Set dataExcel = CreateObject("excel.application")
’绑定sheet
Set thisWorkSheet = ThisWorkbook.Sheets(1)
‘创建另一个文件的对象
Set mworkbook = CreateObject(