按月份(名称)获取数据excel vba

Sub GetDataByMonth()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim filterRange As Range
    Dim monthFilter As String
    
    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set dataRange = ws.Range("A1:D10") ' 假设数据范围是A1:D10
    
    ' 输入要筛选的月份
    monthFilter = InputBox("请输入要筛选的月份（1-12）：")
    
    ' 检查输入的月份是否有效
    If Not IsNumeric(monthFilter) Or monthFilter < 1 Or monthFilter > 12 Then
        MsgBox "无效的月份！"
        Exit Sub
    End If
    
    ' 设置筛选范围并筛选数据
    Set filterRange = dataRange.Columns(1) ' 假设日期在第一列
    filterRange.AutoFilter Field:=1, Criteria1:=monthFilter
    
    ' 复制筛选结果到新的工作表
    dataRange.SpecialCells(xlCellTypeVisible).Copy Destination:=ThisWorkbook.Worksheets("Sheet2").Range("A1")
    
    ' 清除筛选
    ws.AutoFilterMode = False
    
    MsgBox "按月份获取数据完成！"
End Sub