根据起始年号，查找所有数据，请高师赐教，谢谢

ykcbf1100

1. Sub test2()
   
2.     Application.ScreenUpdating = False
   
3.     With Worksheets(2)
   
4.         r = .Cells(.Rows.Count, "A").End(xlUp).Row
   
5.         ar = .Range("A3:F" & r).Value
   
6.     End With
   
7.     ReDim brr(1 To UBound(ar), 1 To UBound(ar, 2))
   
8.     With Worksheets(1)
   
9.         xm = Val(.Range("A1").Value)
   
10.         .Range("A1").CurrentRegion.Offset(2).ClearContents
    
11.         For i = 1 To UBound(ar)
    
12.             If Year(ar(i, 2)) = xm Then
    
13.                m = m + 1
    
14.                 For j = 1 To UBound(ar, 2)
    
15.                     brr(m, j) = ar(i, j)
    
16.                 Next j
    
17.             End If
    
18.         Next i
    
19.         If m Then
    
20.              With .Range("A3").Resize(m, UBound(ar, 2))
    
21.                  .Columns(2).NumberFormatLocal = "yyyy-mm-dd"
    
22.                  .Value = brr
    
23.              End With
    
24.         End If
    
25.         .Activate
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28. End Sub
    

复制代码

gwjkkkkk

laoye5403

这个一样筛选.................

gwjkkkkk

请参考附件。。。

徐海洋

gwjkkkkk 发表于 2025-12-11 20:14
请参考附件。。。

谢谢恩师，您辛苦了，非常感谢

徐海洋

ykcbf1100 发表于 2025-12-11 18:45
参与一下，原代码改的。

谢谢恩师，您辛苦了，我要的是年号后的所有数据

今铭昔

ykcbf1100

徐海洋 发表于 2025-12-11 22:57
谢谢恩师，您辛苦了，我要的是年号后的所有数据

这个判断语句改一下就行了：If Year(ar(i, 2)) > xm Then

华发少年

徐海洋 发表于 2025-12-11 17:06
谢谢高师，您辛苦了，不行，您这代码跟我那一样，我要的是年号以后的所有数据