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

你可能感兴趣的文章
Mysql8.0注意url变更写法
查看>>
Mysql8.0的特性
查看>>
MySQL8修改密码报错ERROR 1819 (HY000): Your password does not satisfy the current policy requirements
查看>>
MySQL8修改密码的方法
查看>>
Mysql8在Centos上安装后忘记root密码如何重新设置
查看>>
Mysql8在Windows上离线安装时忘记root密码
查看>>
MySQL8找不到my.ini配置文件以及报sql_mode=only_full_group_by解决方案
查看>>
mysql8的安装与卸载
查看>>
MySQL8,体验不一样的安装方式!
查看>>
MySQL: Host '127.0.0.1' is not allowed to connect to this MySQL server
查看>>
Mysql: 对换(替换)两条记录的同一个字段值
查看>>
mysql:Can‘t connect to local MySQL server through socket ‘/var/run/mysqld/mysqld.sock‘解决方法
查看>>
MYSQL:基础——3N范式的表结构设计
查看>>
MYSQL:基础——触发器
查看>>
Mysql:连接报错“closing inbound before receiving peer‘s close_notify”
查看>>
mysqlbinlog报错unknown variable ‘default-character-set=utf8mb4‘
查看>>
mysqldump 参数--lock-tables浅析
查看>>
mysqldump 导出中文乱码
查看>>
mysqldump 导出数据库中每张表的前n条
查看>>
mysqldump: Got error: 1044: Access denied for user ‘xx’@’xx’ to database ‘xx’ when using LOCK TABLES
查看>>