博客
关于我
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 优化 or
查看>>
mysql 优化器 key_mysql – 选择*和查询优化器
查看>>
MySQL 优化:Explain 执行计划详解
查看>>
Mysql 会导致锁表的语法
查看>>
mysql 使用sql文件恢复数据库
查看>>
mysql 修改默认字符集为utf8
查看>>
Mysql 共享锁
查看>>
MySQL 内核深度优化
查看>>
mysql 内连接、自然连接、外连接的区别
查看>>
mysql 写入慢优化
查看>>
mysql 分组统计SQL语句
查看>>
Mysql 分页
查看>>
Mysql 分页语句 Limit原理
查看>>
MySQL 创建新用户及授予权限的完整流程
查看>>
mysql 创建表,不能包含关键字values 以及 表id自增问题
查看>>
mysql 删除日志文件详解
查看>>
mysql 判断表字段是否存在,然后修改
查看>>
mysql 协议的退出命令包及解析
查看>>
mysql 取表中分组之后最新一条数据 分组最新数据 分组取最新数据 分组数据 获取每个分类的最新数据
查看>>
mysql 多个表关联查询查询时间长的问题
查看>>