求助大师

小星光

求助大师获取季度数据

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.26
   
2.     Application.ScreenUpdating = False
   
3.     nf = Sheets("指定时间段").[i1].Value
   
4.     yf = Sheets("指定时间段").[i2].Value
   
5.     Select Case yf
   
6.         Case Is <= 3
   
7.             jd = 1
   
8.         Case Is <= 6
   
9.             jd = 2
   
10.         Case Is <= 9
    
11.             jd = 3
    
12.         Case Is <= 12
    
13.             jd = 4
    
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.         .[q:s] = ""
    
32.         .[q5].Resize(m, 3) = brr
    
33.         .[q5].Resize(m, 3).Borders.LineStyle = 1
    
34.     End With
    
35.     Application.ScreenUpdating = True
    
36.     MsgBox "OK！"
    
37. End Sub
    
38. 
    

复制代码

shiruiqiang

小星光

ykcbf1100 发表于 2024-5-26 14:22
附件供参考。。。

谢谢ykcbf1100大师！

小星光

小星光 发表于 2024-5-26 14:30
谢谢ykcbf1100大师！

谢谢shiruiqiang大师

LIUZHU

这题目是不是发过了啊？