博客
关于我
vba拆分excel表格
阅读量:581 次
发布时间:2019-03-11

本文共 4105 字,大约阅读时间需要 13 分钟。

技术文档:Excel数据处理脚本

针对最近的项目中的Excel数据处理需求,整理如下脚本可供参考:


模块1:数据拆分工具

功能:将大规模数据按机器编号和时间拆分成多个工作表,便于后续分析。

使用代码:

Sub Macro2()    Dim counter As Integer    Dim day As Integer    Dim counter2 As Integer    Dim filename As String    Dim daystr As String        For counter = 1 To 10        counter2 = 0 + counter        filename = "G:\电工杯\2\一号机\01"        Application.Goto Reference:="R1C" + LTrim(Str(counter2)) + ":R51844C" + LTrim(Str(counter2))        Selection.Copy        Workbooks.Add        Range("A4").Select        ActiveSheet.Paste        Application.CutCopyMode = False        day = counter        daystr = LTrim(day)        If day < 10 Then            daystr = "0" + daystr        End If        ActiveWorkbook.SaveAs filename:=filename + daystr + ".xls", _                              FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _                              ReadOnlyRecommended:=False, CreateBackup:=False        ActiveWindow.Close    Next counterEnd Sub

说明:

  • 逐个机器编号(循环1-10)和时间天数(1-10天)拆分数据。
  • 数据从原始表格的指定范围复制到新工作簿中。
  • 文件命名结合机器编号和日期,便于管理和查找。

模块2:方差和平均功率计算

功能:从处理过的数据中计算均值、方差和平均功率,输出结果为新的文件。

使用代码:

Sub Macro1()    Dim counter As Integer    Dim i As Long    Dim columnnum As Integer    Dim datanum As String    Dim filenamepro As String        For counter = 1 To 10        filenamepro = "G:\电工杯\2\一号机\01"        datanum = LTrim(Str(counter))        If counter < 10 Then            datanum = "0" + datanum        End If        Workbooks.Open filename:=filenamepro + datanum + ".xls"        Cells.Select        Selection.Copy        Workbooks.Add        Cells.Select        ActiveSheet.Paste        Application.CutCopyMode = False                Dim startnum As Long        For i = 1 To 4320            Range("B" + LTrim(Str(4 + i))).Select            startnum = 5 + (i - 1) * 12            ActiveCell.FormulaR1C1 = "=AVERAGE(R" + LTrim(Str(startnum)) + "C1:R" + LTrim(Str(startnum + 11)) + "C1)"            Next i        ActiveWorkbook.SaveAs filename:=filenamepro + datanum + "DATA" + ".xls", _                              FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _                              ReadOnlyRecommended:=False, CreateBackup:=False        ActiveWindow.Close        If (i Mod 100) = 0 Then            ActiveWorkbook.Save        End If        Next counter    Range("C5").Select    ActiveCell.FormulaR1C1 = "=VAR(R5C2:R4324C2)"    ActiveWorkbook.Save    ActiveWindow.Close    ActiveWindow.Close    Next counterEnd Sub

说明:

  • 对于每个处理后的数据文件,计算特定范围内的平均值和方差。
  • 结果保存为新的工作表,便于后续分析。
  • 处理完所有文件后,收藏并关闭工作簿。

模块3:均值和方差后的数据输出

功能:将平均功率和方差结果分别输出为新的工作表,便于数据汇总。

使用代码:

Sub Macro2()    ChDir "G:\电工杯\2\一号机"        For counter = 1 To 10        filenamepro = "G:\电工杯\2\一号机\01"        datanum = LTrim(Str(counter))        If counter < 10 Then            datanum = "0" + datanum        End If                Workbooks.Open filename:=filenamepro + datanum + "DATA" + ".xls"        Columns("B:B").Select        Selection.Copy        Workbooks.Add        Columns("A:A").Select        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False                Range("A4").Select        ActiveCell.FormulaR1C1 = "平均功率"        Range("C4").Select        ActiveCell.FormulaR1C1 = "方差"        ActiveWorkbook.SaveAs filename:=filenamepro + datanum + "DATA平均功率" + ".xls", _                              FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False        ActiveWindow.Close        Columns("C:C").Select        Selection.Copy        Workbooks.Add        Columns("A:A").Select        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False                Range("A4").Select        ActiveCell.FormulaR1C1 = "方差"        ActiveWorkbook.SaveAs filename:=filenamepro + datanum + "DATA方差" + ".xls", _                              FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False        ActiveWindow.Close    Next counterEnd Sub

说明:

  • 将平均功率和方差结果分别提取和保存。
  • 结果以易于理解的格式输出,方便后续数据汇总和分析。

以上脚本为当前项目中的数据处理提供了完整的解决方案,可根据实际需要进行参数调整和优化。

转载地址:http://onovz.baihongyu.com/

你可能感兴趣的文章
MySQL万字总结!超详细!
查看>>
Mysql下载以及安装(新手入门,超详细)
查看>>
MySQL不会性能调优?看看这份清华架构师编写的MySQL性能优化手册吧
查看>>
MySQL不同字符集及排序规则详解:业务场景下的最佳选
查看>>
Mysql不同官方版本对比
查看>>
MySQL与Informix数据库中的同义表创建:深入解析与比较
查看>>
mysql与mem_细说 MySQL 之 MEM_ROOT
查看>>
MySQL与Oracle的数据迁移注意事项,另附转换工具链接
查看>>
mysql丢失更新问题
查看>>
MySQL两千万数据优化&迁移
查看>>
MySql中 delimiter 详解
查看>>
MYSQL中 find_in_set() 函数用法详解
查看>>
MySQL中auto_increment有什么作用?(IT枫斗者)
查看>>
MySQL中B+Tree索引原理
查看>>
mysql中cast() 和convert()的用法讲解
查看>>
mysql中datetime与timestamp类型有什么区别
查看>>
MySQL中DQL语言的执行顺序
查看>>
mysql中floor函数的作用是什么?
查看>>
MySQL中group by 与 order by 一起使用排序问题
查看>>
mysql中having的用法
查看>>