借助Excel实现Word表格快速排序

embedded/2024/11/20 15:34:08/

实例需求:Word中的表格如下图所示,为了强化记忆,希望能够将表格内容随机排序,表格第一列仍然按照顺序编号,即编号不跟随表格行内容调整。

在这里插入图片描述

乱序之后的效果如下图所示(每次运行代码的结果都不一定相同)。

在这里插入图片描述

示例代码如下。

Sub SortTab()Dim oTab As Table, aData, sTxt As StringSet oTab = ActiveDocument.Tables(1)Dim oRow As Row, oCell As Cell, iR As Long, iC As LongReDim aData(1 To oTab.Rows.Count, 1 To oTab.Columns.Count)RandomizeFor Each oRow In oTab.RowsiR = iR + 1: iC = 0For Each oCell In oRow.CellsiC = iC + 1If iC = 1 ThenaData(iR, iC) = Rnd() * 10000ElsesTxt = oCell.Range.TextaData(iR, iC) = Left(sTxt, Len(sTxt) - 2)End IfNextNextDim xlApp, xlWK, xlShtSet xlApp = CreateObject("excel.application")'Set xlApp = GetObject(, "excel.application")xlApp.Visible = FalseSet xlWK = xlApp.workbooks.AddSet xlSht = xlApp.activesheetWith xlSht.Range("A1").Resize(UBound(aData), UBound(aData, 2)).Value = aData.currentregion.Sort key1:=.Cells(1), header:=0aData = .currentregion.ValueEnd WithxlWK.Close FalsexlApp.QuitSet xlApp = NothingiR = 0For Each oRow In oTab.RowsiR = iR + 1: iC = 0For Each oCell In oRow.CellsiC = iC + 1If iC > 1 ThenoCell.Range.Text = aData(iR, iC)End IfNextNext
End Sub

【代码解析】
第3行代码获取Word文档中的第一个表格对象。
第5行代码为动态数组分配存储空间。
第6行代码初始化随机生成器。
第7~18行代码循环遍历Word表格
第9~17行代码循环Word表格行中的全部单元格。
第12行代码对于第一列填充随机数,用于后续排序,以实现随机乱序。
第14行代码读取单元格内容。
第15行代码将文本保存到数组中。
第20行代码创建新的Excel应用,如果已经打开Excel,那么使用第21行代码获取Excel对象会更快捷。
第22行代码隐藏Excel应用程序。
第23行代码添加Excel工作簿。
第24行代码获取活动工作表。
第26行代码将数组写入到工作表。
第27行代码根据A列进行排序
第28行代码将排序后的表格读取到数组中。
第30行代码关闭工作簿。
第31行代码关闭Excel应用程序。
第34~42行代码循环遍历Word表格,更新单元格内容,第一列序号保持不变,所有无需更新。
第39行代码将数组内容写入单元格。


借助Excel完成排序只是一种实现思路,当然也可以使用其他算法对数组直接进行随机排序


http://www.ppmy.cn/embedded/139110.html

相关文章

如何在 Python 中判断 ADB 设备是否连接

在进行 Android 自动化测试时,使用 ADB (Android Debug Bridge) 与设备进行交互是常见的做法。通常我们需要确认 ADB 是否连接到设备,然后才能执行后续的测试操作。本文将介绍如何在 Python 中检查 adb devices 命令的输出,判断是否有设备连接。 1. 什么是 adb devices 命令…

ftdi_sio应用学习笔记 1 - 查找串口

目录 1. 打开文件夹"/sys/bus/usb/devices/" 2. 遍历所有USB文件夹 3. 通过VID判断是否为FTDI设备 4. 创建设备链 5. 获取其他属性 6. 遍历接口文件夹 7. 释放资源 PS:源代码在:ftdi_sio: 基于标准的ftdi_sio,增加MPSSE功能…

如何挑选路由器?需要看哪些参数?

挑选路由器时,选择合适的型号和参数对于确保家庭或办公网络的速度、稳定性和覆盖范围至关重要。以下是挑选路由器时需要考虑的关键参数和因素: 1. 无线标准 (Wi-Fi标准) 无线标准是衡量路由器性能的核心指标。不同的无线标准提供不同的速率、范围和技术…

聚类分析 | MSADBO优化Spectral谱聚类优化算法

目录 效果一览基本介绍程序设计参考资料 效果一览 基本介绍 基于改进正弦算法引导的蜣螂优化算法(MSADBO)优化Spectral谱聚类,matlab代码,直接运行! 创新独家,先用先发,注释清晰,送MSADBO参考文献!优化参数 优化后的带…

Linux服务器下连接kingbase并执行SQL的脚本

Linux服务器上实现通过shell脚本更新数据(非信创服务器) #!/bin/bash# PostgreSQL 连接信息 HOST"192.18.200.24" DBNAME"bxszf" USER"admin" PASSWORD"111111"# SQL 更新语句 SQL_QUERY"update bxszf.yq…

MyBlog(三) -- APP的应用

文章目录 前言一、APP是什么?二、创建APP三、使用APP1. 注册app2. 添加路由3. 运行过程4. 完善视图函数5. 结果展示 总结 前言 前面我们已经学习了如何创建一个新的项目,并且配置好了项目的启动文件,成功将项目启动! 那么接下来我们的主要任务就是需要完善这个项目中应该包含…

kafka不同的消费场景

kafka常见的消费场景 从头开始消费从最新偏移量消费从特定时间戳偏移量消费 kafka消费场景详细配置方法 消费模式配置参数场景从头开始消费scan.startup.modeearliest-offset回放所有历史数据从最新偏移量消费scan.startup.modelatest-offset实时消费新数据从特定时间戳消费…

微信小程序-prettier 格式化

一.安装prettier插件 二.配置开发者工具的设置 配置如下代码在setting.json里: "editor.formatOnSave": true,"editor.defaultFormatter": "esbenp.prettier-vscode","prettier.documentSelectors": ["**/*.wxml"…