再次向大师求助

小星光

再次向大师求助

taller

小星光

taller 发表于 2024-4-7 02:05

老师你好：现在还是查不到其他年度的。

小星光

小星光 发表于 2024-4-7 07:35
老师你好：现在还是查不到其他年度的。

老师你好：现在还是查不到其他年度的季度数

小星光

小星光 发表于 2024-4-7 07:36
老师你好：现在还是查不到其他年度的季度数

只查到其他年度的当月数

swl4561255

1. Sub test()
   
2. Sheets("表2").Range("A2:H" & [A65536].End(3).Row).ClearContents
   
3. ar = Sheets("表1").[A2].End(4).Row
   
4. arr = Sheets("表1").Range("A2:H" & ar)
   
5. Dim brr(1 To 1000, 1 To 8)
   
6. For i = 2 To ar - 2
   
7.     If arr(i, 1) = Sheets("表2").[J1] Then
   
8.         If Int((arr(i, 2) - 1) / 3) = Int((Sheets("表2").[J2] - 1) / 3) Then
   
9.             m = m + 1
   
10.             For j = 1 To 8
    
11.                 brr(m, j) = arr(i, j)
    
12.             Next
    
13.         End If
    
14.     End If
    
15. Next
    
16. Sheets("表1").Range("A2:H2").Copy Sheets("表2").[A2]
    
17. Sheets("表2").[A3].Resize(m, 8) = brr
    
18. End Sub
    

复制代码

taller

小星光 发表于 2024-4-7 07:35
老师你好：现在还是查不到其他年度的。

没有附件无法确定你输入的代码是否有问题

小星光

swl4561255 发表于 2024-4-7 07:52

老师你好：最后第二行出现错误请你看看。谢谢您！
Sheets("表2").[A3].Resize(m, 8) = brr

小星光

swl4561255 发表于 2024-4-7 07:52

代码最后第二行有错

ykcbf1100

附件供参考。。。