|
![](https://clubstatic.excelhome.net/image/common/ico_lz.png)
楼主 |
发表于 2021-11-21 10:56
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
下面先列出一些基本用法,都是简单的方法不进行细说了,后续复杂方法在详解
Public Function 插入行(ByVal index As Long, ByVal 数量 As Long, [是否复制 As Boolean = False]) As DataAutomation类似excel的插入整行整列
第1参数:插入位置的行索引
第2参数:插入的数量
第3参数:true是插入的新行将复制上一行的内容,False时则为空值
Public Function 插入列(ByVal index As Long, ByVal 数量 As Long, [是否复制 As Boolean = False]) As DataAutomation
类似excel的插入整行整列
第1参数:插入位置的列索引
第2参数:插入的数量
第3参数:true是插入的新列将复制上一列的内容,False时则为空值
Public Function 复制N列(ByVal arr) As DataAutomation
根据arr列索引的对应列复制一份,复制到数据的末尾列,数据列数会增加
第1参数:可以是列索引如da.复制N列(1),也可以是列索引数组如da.复制N列(array(1,3))
Public Function 隔行插入() As DataAutomation
隔行插入空行,没什么好说的,没参数
Public Function 交换行(ByVal 行1 As Long, ByVal 行2 As Long) As DataAutomation
对两行数据位置进行交换
第1参数:行索引1
第2参数:行索引2
Public Function 交换列(ByVal 列1 As Long, ByVal 列2 As Long) As DataAutomation
对两列数据位置进行交换
第1参数:列索引1
第2参数:列索引2
Public Function 空值移动(ByVal arr, [ByVal 方向 As 移动方向 = 上移], [ByVal 空值 As String = ""]) As DataAutomation
类似excel定位整行或整列空值然后删除空值操作
第2参数:移动方向枚举
Public Enum 移动方向
右移 = 1
下移 = 2
左移 = 3
上移 = 4
不移动 = 5
End Enum
第1参数:索引或索引数组,当移动方向时上移或下移时为列索引,当移动方向时左移或右移时为行索引
第3参数:判断空值的条件,例如把第3参数设置为“1”,那么就会把1当做空值删除
Public Function 判断是否重复(ByVal arr) As Boolean
判断整列是否用重复值
第1参数:列索引或列索引数组
Public Function 删除行(ByVal arr) As DataAutomation
删除整行
第1参数:行索引或行索引数组
Public Function 删除空行([ByVal 空值 As String = ""]) As DataAutomation
如果整行都为空那么就会被删除
第1参数:判断空值的条件
Public Function 删除列(ByVal arr) As DataAutomation
删除整列
第1参数:列索引或列索引数组
Public Function 删除区域(ByVal 行 As Long, ByVal 列 As Long, ByVal 高 As Long, ByVal 宽 As Long, ByVal 移动 As 移动方向, [ByVal st = ""]) As DataAutomation
类似excel删除一块区域
第1参数:区域的左上角对应数据行位置
第2参数:区域的左上角对应数据列位置
第3参数:区域的高度
第4参数:区域的宽度
第5参数:移动方向枚举(参照空值移动方法)
第6参数:被删除区域填充值默认空值
Public Function 转换列(ByVal arr) As DataAutomation
根据列索引,将整列进行重组
第1参数:列索引或列索引数组
例如:da("a1:d3"). 转换列(array(2,3)) 转换后数据内容只保留了第2和第3列变成了“b2:c3”内容
da("a1:d3"). 转换列(array(1,1,1)) 转换后数据内容只保留了第1列数据,并把第1列数据复制成了三列
da("a1:d3"). 转换列(array(4,3,2,1)) 转换后数据的列被颠倒了
Public Function 转置数据() As DataAutomation
类似WorksheetFunction.Transpose函数
Public Function 去重(ByVal arr, [ByVal 保留第一行 As Boolean = True]) As DataAutomation
对数据相同的行进行去重
第1参数:列索引或列索引数组
第2参数:true时对其他列如果出现重复会取第一行数据,反之取最后一行
Public Function 是否有错误值() As Boolean
判断整个数据是否有公式错误值
Public Function 替换错误值([ByVal 新值 = ""]) As DataAutomation
对整个数据存在的公式错误值替换成新的支
第1参数:要替换的值
Public Property 数据(ByVal 行 As Long, ByVal 列 As Long)
这是属性,可以对数据的指定值读取,修改,像数组一样操作
例如:da.数据(1,3)=1 对数据的第一行第三列的值修改为1
s=da.数据(1,3) 取得第一行第三列的值附给s变量
|
|