常用功能加载宏——二维表转一维表
时间:2022-07-22
本文章向大家介绍常用功能加载宏——二维表转一维表,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
工作中经常会碰到这种情况,外部收集来的资料,表格制作者为了排版好看,把表格做成多行多列的格式,这种格式看起来方便,但是做数据处理是非常不方便的,需要进行转换后进行数据处理:
首先在customUI.xml中增加代码:
<menu id="rbmenuTrans" label="表格转换 " size="large" imageMso="TableSummarizeWithPivot">
<button id="rbbtnTarnsTable2To1" label="二维表转一维表" onAction="rbbtnTarnsTable2To1" supertip="将选择的多行多列表格转换为多行3列表格。"/>
</menu>
回调函数:
Sub rbbtnTarnsTable2To1(control As IRibbonControl)
Call MShtWk.TarnsTable2To1
End Sub
函数实现:
Sub TarnsTable2To1()
If VBA.TypeName(Selection) <> "Range" Then
Exit Sub
End If
Dim rngSrc As Range, rngDes As Range
Set rngSrc = Selection
If rngSrc.Cells.Count < 4 Then
MsgBox "转换至少需要2行2列的数据!"
Exit Sub
End If
On Error Resume Next
Set rngDes = Application.InputBox("请选择输出单元格。", Default:=rngSrc.Range("A1").Offset(rngSrc.rows.Count + 1, 0).Address, Type:=8)
On Error GoTo 0
If rngDes Is Nothing Then Exit Sub
Set rngDes = rngDes.Range("A1")
Dim arr(), Result() As Variant
arr = rngSrc.Value
Dim iRows As Long, iCols As Long
Dim i As Long, j As Long
iRows = rngSrc.rows.Count - 1
iCols = rngSrc.Columns.Count - 1
ReDim Result(1 To iRows * iCols + 1, 1 To 3) As Variant
Dim pRow As Long
pRow = 1
Result(pRow, 1) = "行标题"
Result(pRow, 2) = "列标题"
Result(pRow, 3) = "数据"
For i = 2 To iRows + 1
For j = 2 To iCols + 1
pRow = (i - 2) * iCols + j - 1 + 1
Result(pRow, 1) = "'" & arr(i, 1)
Result(pRow, 2) = "'" & arr(1, j)
Result(pRow, 3) = arr(i, j)
Next j
Next i
rngDes.Resize(iRows * iCols + 1, 3).Value = Result
End Sub
- linux下expect环境安装以及简单脚本测试
- 泛型List<T>使用示例
- linux系统最小化安装后的初始化脚本
- 简单对比git pull和git pull --rebase的使用
- VS 2010一步步开发windows服务(windows service)
- 运算符重载,以及迭代器[foreach]示例
- 牛津大学王宁博士:大数据与有限理性
- 侃哥:苹果服软了就“降速门”公开致歉并祭出优惠
- 委托示例(利用委托对不同类型的对象数组排序)
- event & delegate Demo(事件&委托示例)
- 最简单的匿名方法与委托示例
- Eclipse与Android源码中ProGuard工具的使用
- VSTS知识整理
- msmq在Internet上访问的问题(只能发送,不能接收)
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- LoRaWAN 帧计数机制及典型问题分析
- ffmpeg mp4解码管道输出的问题
- 机器人运动控制仿真:Matlab机器人工具箱和Simmechanics
- 使用HTMLTestRunner实现HTML测试报告
- Jmeter五步实现性能测试
- 测试工程师必须要掌握的linux命令
- Python之pip使用详解|附第三方库安装总结
- Python基础之数据类型详解
- 编码效率提升之Pycharm活动模板(Live Templates )
- crictl调试Kubernetes节点
- leetcode哈希表之好数对的数目
- Python处理excel的强大工具-openpyxl
- Pycharm最高效的快捷键集合
- 关于Python循环,看这一篇就够了
- Python新手常见错误汇总|附代码检查清单