通过VBA提取指定条件数据

rzcdc2012

这种怎么通过VBA来提取数据，容易实现吗

陆离Lowry

查询结果这样显示吗？

rzcdc2012

陆离Lowry 发表于 2023-2-8 15:08
查询结果这样显示吗？

是的哈，感觉好复杂啊，还是用函数公式比较简单些，还是非常感谢，能不能给分享下代码啊

陆离Lowry

你这个这么固定的格式，公式也不难。就是月份得自己输下表名

rzcdc2012

陆离Lowry 发表于 2023-2-8 15:35
你这个这么固定的格式，公式也不难。就是月份得自己输下表名

嗯，表格的格式还是比较固定的了，谢谢了

蓝桥玄霜

查询的例子：

rzcdc2012

蓝桥玄霜 发表于 2023-2-8 15:40
查询的例子：

非常感谢老师的分享

fzxba

参与.rar (30.18 KB, 下载次数: 26)

2023-2-8 17:24 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("查询")
   
5.         xm = .Range("c6")
   
6.         ReDim brr(1 To 13, 1 To 3)
   
7.         For i = 1 To UBound(brr) - 1
   
8.             brr(i, 1) = i
   
9.         Next
   
10.         brr(13, 1) = "合计"
    
11.     End With
    
12.     For k = 1 To 12
    
13.         With Worksheets(k & "月")
    
14.             n = 1
    
15.             For j = 2 To 5 Step 3
    
16.                 n = n + 1
    
17.                 r = .Cells(.Rows.Count, j).End(xlUp).Row
    
18.                 arr = .Cells(3, j).Resize(r, 2)
    
19.                 For i = 1 To UBound(arr)
    
20.                     If arr(i, 1) = xm Then
    
21.                         brr(k, n) = brr(k, n) + arr(i, 2)
    
22.                     End If
    
23.                 Next
    
24.             Next
    
25.         End With
    
26.     Next
    
27.     For j = 2 To 3
    
28.         For i = 1 To 12
    
29.             brr(13, j) = brr(13, j) + brr(i, j)
    
30.         Next
    
31.     Next
    
32.     With Worksheets("查询")
    
33.         .Range("c8").Resize(UBound(brr), UBound(brr, 2)) = brr
    
34.     End With
    
35. End Sub
    

复制代码

chxw68

参与一下。