VBA二维表转一维表
时间:2022-07-22
本文章向大家介绍VBA二维表转一维表,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
1、需求:
将1个二维表格转换为方便数据统计的一维表格:
2、举例:
工作中经常会碰到这种情况,外部收集来的资料,表格制作者为了排版好看,做成转换前的格式,这种格式看起来方便,但是做数据处理是非常不方便的,需要进行转换后进行数据处理。
3、代码实现
这个功能的逻辑还是挺简单的,2个循环就可以覆盖数据所有的范围,然后输出到1个二维数组,主要是要注意计算数组的下标:
Sub TarnsTable()
On Error GoTo err_handle
If VBA.TypeName(Selection) <> "Range" Then
MsgBox "请选择单元格区域。"
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
Set rngDes = GetRng("请选择输出单元格。", rngSrc.Range("A1").Offset(rngSrc.Rows.Count + 1, 0).Address)
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
Exit Sub
err_handle:
MsgBox Err.Description
End Sub
Function GetRng(strPrompt As String, defaultAdd As String) As Range
On Error Resume Next
Set GetRng = Application.InputBox(strPrompt, Default:=defaultAdd, Type:=8)
On Error GoTo 0
If GetRng Is Nothing Then
MsgBox "请选择单元格区域。"
Else
Set GetRng = GetRng.Range("a1")
End If
End Function
- silverlight中的几个冷门标记 {x:Null},d:DesignWidth,d:DesignHeight
- 用scikit-learn和pandas学习线性回归
- 自动驾驶玩出新花招,以后老司机们就要失业了
- silverlight.net官方网站图片切换源码
- 制作iis自动安装包
- 安装程序无法复制一个或多个文件。特定错误码是0x4b8。
- silverlight中"制作逐帧动画"/"播放gif"收集
- Android新手之旅(1) 开发环境的安装
- Python安装模块
- 数据绑定应当注意的一个白痴问题
- 外媒称NVIDIA新架构Volta专为AI而生,对图形性能并无帮助
- 将自动通知窗体集成到类中
- ASP.NET调用word开发环境下正常,iis下报错
- python基础
- 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 数组属性和方法