新鲜出炉，通用二维数组操作类（跨表数据读取、自定义多条件查询、自定义多条件排序）

lsdongjh

为了方便操作，写了一个通用的操作类： clsArrCom.rar (4.6 KB, 下载次数: 105)

2021-8-10 15:39 上传

点击文件名下载附件

使用示例：

1. Option Explicit
   
2. 
   
3. Sub 示例()
   
4.     Dim ArrCom As New clsArrCom, arrData As Variant
   
5.    
   
6.     '实例化类
   
7.     Set ArrCom = New clsArrCom
   
8.    
   
9. '(1) 跨表读取数
   
10.     '-----读取 "F:/test.xlsx" 中名为 "Test" 的工作表，如果成功，写入Sheet1的A1
    
11.     If ArrCom.GetDataByFilePath("F:/test.xlsx", "Test", arrData) Then
    
12.         Sheet1.Range("A1").Resize(UBound(arrData), UBound(arrData, 2)) = arrData
    
13.     End If
    
14.     '    读取 "F:/test.xlsx" 中的第 2 张表
    
15.     '  ArrCom.GetDataByFilePath("F:/test.xlsx", 2, arrData)
    
16.     '    读取 "F:/test.xlsx" 中的第 8 张表 的 C3:L234
    
17.     '  ArrCom.GetDataByFilePath("F:/test.xlsx", 8, arrData,"C3:L234")
    
18.    
    
19. '(2) 自定义筛选（查询）
    
20.     arrData = Sheet1.Range("A1:E32")
    
21.     '-----筛选条件：第一列为"A" 或 "C"
    
22.     'arrData = ArrCom.FilterArr(arrData, True, 1, "in", "A,C")
    
23.     '-----筛选条件：第一列为包含“A” 且 第2列 大于 1，且 第5列 小于 7
    
24.     'arrData = ArrCom.FilterArr(arrData, True, 1, "LIKE", "A", 2, ">", 1, 5, "<", 7)
    
25.     '-----筛选条件：第一列为"A" 或 "C",或者 第 五列 大于等于 6
    
26.     'arrData = ArrCom.FilterArr(arrData, False, 1, "in", "A,C", 5, ">=", 6)
    
27.     '-----筛选条件：第二列大于5，且 第四列 等于 "D"
    
28.     arrData = ArrCom.FilterArr(arrData, True, 2, ">", 5, 4, "=", "D")
    
29.     Sheet1.Range("M1").Resize(UBound(arrData), UBound(arrData, 2)) = arrData
    
30.    
    
31. '(3) 自定义排序
    
32.     arrData = Sheet1.Range("A1:E32")
    
33.     '排序A1:E32，区域，并将结果回填
    
34.     '排序条件是 第5列降序、第2列升序
    
35.     If ArrCom.Two_Dimensional_ArrSort(arrData, Array(5, 2), Array("DESC", "ASC")) Then
    
36.         Sheet1.Range("A1:E32") = arrData
    
37.     End If
    
38. 
    
39.     '排序A1:E32，区域，并将结果填至H1:L32区域
    
40.     '排序条件是 第1、2列升序、第4列降序
    
41.     If ArrCom.Two_Dimensional_ArrSort(arrData, Array(1, 2, 4), Array("ASC", "", "DESC")) Then
    
42.         Sheet1.Range("H1:L32") = arrData
    
43.     End If
    
44.    
    
45. End Sub
    

复制代码

lsdongjh

自己先顶一下。审核机制要优化一下。

cui26896

两个文件都是压缩文件，打不开呀？

lsdongjh

cui26896 发表于 2021-8-10 19:31
两个文件都是压缩文件，打不开呀？

类模块，可以文本打开，建议在VBE中导入

cui26896

感谢老师的共享！

laoshenji

lsdongjh 发表于 2021-8-10 19:33
类模块，可以文本打开，建议在VBE中导入

谢谢老师，原来是个文本的。给个实例该多好。

lsdongjh

laoshenji 发表于 2021-8-10 20:17
谢谢老师，原来是个文本的。给个实例该多好。

贴子中有实例

laoshenji

lsdongjh 发表于 2021-8-10 21:06
贴子中有实例

未看到一楼的Excel实例演示。

xj123321

学习学习   

qlmgu

希望学习体验，但是未见到未看到一楼的Excel实例演示。