再次求助大师

小星光

敬请大师再次帮忙获取上季度数据

逍遥爱迪生

可以用VBA计算，比公式快

小星光

逍遥爱迪生 发表于 2024-5-27 11:02
可以用VBA计算，比公式快

是的,就要用VBA计算。

Qs18

这个怎么弄得怎么绕，您直接在查询条件就可以改了，您上次的老师就已经给了很好的解答了

小星光

小星光 发表于 2024-5-27 11:03
是的,就要用VBA计算。

昨天有两位大师帮我编写了一非常好的程序，可我高忽略今天所说的问题，敬请大师帮忙！

ykcbf1100

上季度数据。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.27
   
2.     Application.ScreenUpdating = False
   
3.     nf = Sheets("指定时间段").[i1].Value
   
4.     yf = Sheets("指定时间段").[i2].Value
   
5.     Select Case yf
   
6.         Case Is <= 3
   
7.             nf = nf - 1: jd = 4
   
8.         Case Is <= 6
   
9.             jd = 1
   
10.         Case Is <= 9
    
11.             jd = 2
    
12.         Case Is <= 12
    
13.             jd = 3
    
14.     End Select
    
15.     With Sheets("资料源")
    
16.         r = .Cells(Rows.Count, 1).End(3).Row
    
17.         arr = .[a1].Resize(r, 11)
    
18.     End With
    
19.     ReDim brr(1 To UBound(arr), 1 To 3)
    
20.     For i = 3 To UBound(arr)
    
21.         If arr(i, 1) = nf Then
    
22.             If arr(i, 2) >= 1 + (jd - 1) * 3 And arr(i, 2) <= 3 + (jd - 1) * 3 Then
    
23.                 m = m + 1
    
24.                 brr(m, 1) = arr(i, 11)
    
25.                 brr(m, 2) = arr(i, 7)
    
26.                 brr(m, 3) = arr(i, 8)
    
27.             End If
    
28.         End If
    
29.     Next
    
30.     With Sheets("季度表")
    
31.         .[u:w] = ""
    
32.         .[u5].Resize(m, 3) = brr
    
33.         .[u5].Resize(m, 3).Borders.LineStyle = 1
    
34.     End With
    
35.     Application.ScreenUpdating = True
    
36.     MsgBox "OK！"
    
37. End Sub
    
38. 
    
39. 
    

复制代码

小星光

ykcbf1100 发表于 2024-5-27 13:05
参与一下。。。

ykcbf1100大师你好！太感谢您了！

LIUZHU

抛开问题不谈，为什么这季度表不能设计得规范一点，空着这么多列有用吗？我看到论坛中上传的问题，好多表格都是这样？

LIUZHU

这个“资料源”表是从财务系统导出的数据吗？盲目的插行插列，我也是服了