博客
关于我
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/

你可能感兴趣的文章
MTK Android 如何获取系统权限
查看>>
MySQL - 4种基本索引、聚簇索引和非聚索引、索引失效情况、SQL 优化
查看>>
MySQL - ERROR 1406
查看>>
mysql - 视图
查看>>
MySQL - 解读MySQL事务与锁机制
查看>>
MTTR、MTBF、MTTF的大白话理解
查看>>
mt_rand
查看>>
mysql -存储过程
查看>>
mysql /*! 50100 ... */ 条件编译
查看>>
mudbox卸载/完美解决安装失败/如何彻底卸载清除干净mudbox各种残留注册表和文件的方法...
查看>>
mysql 1264_关于mysql 出现 1264 Out of range value for column 错误的解决办法
查看>>
mysql 1593_Linux高可用(HA)之MySQL主从复制中出现1593错误码的低级错误
查看>>
mysql 5.6 修改端口_mysql5.6.24怎么修改端口号
查看>>
MySQL 8.0 恢复孤立文件每表ibd文件
查看>>
MySQL 8.0开始Group by不再排序
查看>>
mysql ansi nulls_SET ANSI_NULLS ON SET QUOTED_IDENTIFIER ON 什么意思
查看>>
multi swiper bug solution
查看>>
MySQL Binlog 日志监听与 Spring 集成实战
查看>>
MySQL binlog三种模式
查看>>
multi-angle cosine and sines
查看>>