VBA实例-从Excel整理数据到Word

最新推荐文章于 2025-04-10 14:52:06 发布

海底捞真

最新推荐文章于 2025-04-10 14:52:06 发布

阅读量2.2k

点赞数 3

分类专栏： VBA实例文章标签： excel word

本文链接：https://blog.youkuaiyun.com/u010235853/article/details/140592826

版权

实现目录

功能需求

功能需求

1、将原始数据中不要的数据剔除
2、原始数据中增加序号、日期和时间三列数据，并且按报名类别进行分类。
3、形成时间表
4、将名称和类别复制到评分表中，一个名称一个word文档
5、将数据中的参数5和参数9复制到评分表中

数据结构

在这里插入图片描述

复制数据到新sheet并分类数据

If CheckIsExistsSheetName("时间表") Then
        ThisWorkbook.Sheets("时间表").Delete
    End If
    Application.DisplayAlerts = True
   For i = 2 To SumRows
        refValue = SourceSheet.Cells(i, 5) * 1
        If refValue > finalValue Then
            finalValue = refValue
        End If
   Next i
   For TargetDeviceSerialNumber = 1 To finalValue
        Set Gradeword = wdapp.Documents.Open(ThisWorkbook.Path & "\评分表.docx")
        Debug.Print Gradeword.Tables(1).Cell(3, 1).Range.Text
        Gradeword.Sentences(2).Characters(27) = EquipSectionsheet.Cells(TargetDeviceSerialNumber + 1, 3).Text 
        Gradeword.Sentences(2).Characters(8) = EquipSectionsheet.Cells(TargetDeviceSerialNumber + 1, 2).Text 
        jj = 3
        For j = 2 To SumRows
             refValue = SourceSheet.Cells<