常用功能加载宏——一维表转二维表
时间:2022-07-22
本文章向大家介绍常用功能加载宏——一维表转二维表,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
实现了二维表格转换为一维表格,反过来的功能偶尔也是会用到的:
首先在customUI.xml中增加代码:
<button id="rbbtnTarnsTable1To2" label="一维表转二维表" onAction="rbbtnTarnsTable1To2" supertip="将选择的多行3列表格转换为多行多列表格。"/>
回调函数:
Sub rbbtnTarnsTable1To2(control As IRibbonControl)
Call MShtWk.TarnsTable1To2
End Sub
函数实现:
Sub TarnsTable1To2()
Dim drow As Object
Dim dcol As Object
Set drow = VBA.CreateObject("Scripting.Dictionary")
Set dcol = VBA.CreateObject("Scripting.Dictionary")
Dim i As Long
Dim arr() As Variant
Dim rng As Range
'确保选中的是单元格
If TypeName(Selection) <> "Range" Then
Exit Sub
End If
Set rng = Selection
If rng.Columns.Count <> 3 Then
MsgBox "只能处理3列数据,其中第3列必须是数字。"
Exit Sub
End If
If rng.rows.Count < 2 Then
MsgBox "数据至少要有2行。"
Exit Sub
End If
arr = rng.Value
Dim rngout As Range
On Error Resume Next
Set rngout = Application.InputBox("请选择输出的起始单元格。", Default:=rng.Range("A1").Offset(rng.rows.Count + 1, 0).Address, Type:=8)
On Error GoTo 0
If rngout Is Nothing Then Exit Sub
Set rngout = rngout.Range("A1")
'记录项目的行号、姓名的列号
Dim strkey As String
For i = 2 To UBound(arr)
strkey = VBA.CStr(arr(i, 1))
If Not drow.Exists(strkey) Then drow(strkey) = drow.Count + 1
strkey = VBA.CStr(arr(i, 2))
If Not dcol.Exists(strkey) Then dcol(strkey) = dcol.Count + 1
Next
Dim Result() As Variant
ReDim Result(1 To drow.Count + 1, 1 To dcol.Count + 1) As Variant
Result(1, 1) = "项目"
Dim tmp
tmp = drow.keys()
'行
For i = 0 To drow.Count - 1
Result(i + 2, 1) = tmp(i)
Next
tmp = dcol.keys()
'列
For i = 0 To dcol.Count - 1
Result(1, i + 2) = tmp(i)
Next
Dim pRow As Long, pcol As Long
'数据
For i = 2 To UBound(arr)
pRow = drow(VBA.CStr(arr(i, 1))) + 1
pcol = dcol(VBA.CStr(arr(i, 2))) + 1
Result(pRow, pcol) = Result(pRow, pcol) + VBA.Val(arr(i, 3))
Next
rngout.Resize(drow.Count + 1, dcol.Count + 1).Value = Result
Set drow = Nothing
Set dcol = Nothing
End Sub
- actionbar完全解析(一)
- android galley实现画廊效果
- RavenDB:基于Windows/.NET平台的NoSQL数据库
- 神经网络算法交易:波动预测与定制损失函数
- 贝叶斯深度学习:桥接PyMC3和Lasagne构建层次神经网络
- How does it work in Mono's C# compiler?
- Cross-Origin Resource Sharing协议介绍
- 战斗民族开源神器ClickHouse:一款适合于构建量化回测研究系统的高性能列式数据库(二)
- Microsoft StreamInsight 构建物联网
- 利用 Microsoft StreamInsight 控制较大数据流
- HTML Agility Pack 搭配 ScrapySharp,彻底解除Html解析的痛苦
- 看看你是哪种级别的Python程序员(已跪)
- SignalR 在IE中无法工作 - Internet Explorer
- SQL Server 2012 中的 Service Broker功能的一些改进或增强
- 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 数组属性和方法
- keras分类之二分类实例(Cat and dog)
- 详解Python 循环嵌套
- PHP中quotemeta()函数的用法讲解
- 微信公众号实现扫码获取微信用户信息(网页授权)
- 实例说明js脚本语言和php脚本语言的区别
- 在Ubuntu 18.04上安装PHP 7.3 7.2和7.0的方法
- PHP7匿名类的用法示例
- laravel配置Redis多个库的实现方法
- PHP中Static(静态)关键字功能与用法实例分析
- 详解PHP 二维数组排序保持键名不变
- 详解PHP的抽象类和抽象方法以及接口总结
- keras的ImageDataGenerator和flow()的用法说明
- python 识别登录验证码图片功能的实现代码(完整代码)
- Laravel事件监听器用法实例分析
- iOS 性能优化实践:头条抖音如何实现 OOM 崩溃率下降50%+