再次向大师求助

ykcbf1100

保留了大部分原代码，便于楼主理解。

1. Sub ykcbf()  '//2024.4.7
   
2.     With Sheets("表2")
   
3.         yr = .[j1]
   
4.         mm = .[j2]
   
5.         .UsedRange.Offset(2).Clear
   
6.     End With
   
7.     ar = Sheets("表1").UsedRange
   
8.     ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
   
9.     For i = 2 To UBound(ar)
   
10.         If Val(ar(i, 1)) = yr Then
    
11.             If Val(ar(i, 2)) = mm Then
    
12.                 r = r + 1
    
13.                 For j = 1 To UBound(ar, 2)
    
14.                     br(r, j) = ar(i, j)
    
15.                 Next
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     If r Then
    
20.         With Sheets("表2").Range("a3").Resize(r, UBound(br, 2))
    
21.             .Value = br
    
22.             .HorizontalAlignment = xlCenter
    
23.             .VerticalAlignment = xlCenter
    
24.             .Borders.LineStyle = 1
    
25.         End With
    
26.     Else
    
27.         MsgBox "没有相应的记录！"
    
28.         Exit Sub
    
29.     End If
    
30. End Sub
    

复制代码

swl4561255

小星光 发表于 2024-4-7 08:42
代码最后第二行有错

我这边运行没有发现问题啊。

ykcbf1100

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

查不到其它年度是因为你的2024是文本格式。

小星光

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

2023年度的没问题，点2024年的就不行。

小星光

小星光 发表于 2024-4-7 08:58
2023年度的没问题，点2024年的就不行。

真是文本格式呀，现在可以了。谢谢大家！