常用功能加载宏——二维表转一维表
时间: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
- 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 数组属性和方法
- 内网渗透 | 内网中的信息收集
- 通过命令下载执行恶意代码的几种姿势
- CS如何配置通过CDN上线
- Height transition
- 【DB笔试面试861】在Oracle中,有哪些常见组件?
- 【DB笔试面试862】在Oracle中,如何安装DBMS_NETWORK_ACL_ADMIN包?
- 【DB宝19】在Docker中使用MySQL高可用之MHA
- 【DB笔试面试863】在Oracle中,如何让Oracle DB、监听和oem开机启动?
- 【DB笔试面试864】在Oracle中,响应文件在什么位置?
- 设计模式几大原则
- Thrift使用教程(Java版本)
- C语言实现三子棋
- C语言操作符
- 一级指针、二级指针、指针和数组、指针数组总结
- C++入门知识(一)