求助数据处理求助

多工作还是单工作表或者是多工作簿？条件缺的太多 。

Option Explicit
Sub abc()
　Dim a, i, j, m
　a = [a1].CurrentRegion.Value
　m = 1
　For i = 2 To UBound(a)
　　If Month(a(i, 1)) = 6 Then
　　　If Day(a(i, 1)) >= 1 And Day(a(i, 1)) <= 15 Then
　　　　m = m + 1
　　　　For j = 1 To UBound(a, 2)
　　　　　a(m, j) = a(i, j)
　　　　Next
　　　End If
　　End If
　Next
　[a1].Offset(, UBound(a, 2) + 1).Resize(m, UBound(a, 2)) = a
End Sub