博客
关于我
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 case when 乱码_Mysql CASE WHEN 用法
查看>>
Multicast1
查看>>
mysql client library_MySQL数据库之zabbix3.x安装出现“configure: error: Not found mysqlclient library”的解决办法...
查看>>
MySQL Cluster 7.0.36 发布
查看>>
Multimodal Unsupervised Image-to-Image Translation多通道无监督图像翻译
查看>>
MySQL Cluster与MGR集群实战
查看>>
multipart/form-data与application/octet-stream的区别、application/x-www-form-urlencoded
查看>>
mysql cmake 报错,MySQL云服务器应用及cmake报错解决办法
查看>>
Multiple websites on single instance of IIS
查看>>
mysql CONCAT()函数拼接有NULL
查看>>
multiprocessing.Manager 嵌套共享对象不适用于队列
查看>>
multiprocessing.pool.map 和带有两个参数的函数
查看>>
MYSQL CONCAT函数
查看>>
multiprocessing.Pool:map_async 和 imap 有什么区别?
查看>>
MySQL Connector/Net 句柄泄露
查看>>
multiprocessor(中)
查看>>
mysql CPU使用率过高的一次处理经历
查看>>
Multisim中555定时器使用技巧
查看>>
MySQL CRUD 数据表基础操作实战
查看>>
multisim变压器反馈式_穿过隔离栅供电:认识隔离式直流/ 直流偏置电源
查看>>