如何使用VBA按月/年应用自动筛选，并根据月/年筛选在另一个范围内添加值

在VBA中，可以使用自动筛选功能来按照月份或年份筛选数据，并将符合条件的数据添加到另一个范围中。

以下是一种实现方法：

1. 首先，打开Excel，并按下Alt+F11进入VBA编辑器界面。
2. 在VBA编辑器中，选择你想要应用自动筛选的工作表。
3. 在工作表的代码模块中，插入以下VBA代码：

Sub ApplyAutoFilter()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filterRange As Range
    Dim criteriaRange As Range
    
    ' 设置筛选范围和条件范围
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set filterRange = ws.Range("A1:A" & lastRow)
    Set criteriaRange = ws.Range("B1")
    
    ' 应用筛选
    filterRange.AutoFilter Field:=1, Criteria1:=criteriaRange.Value
    
    ' 将筛选结果复制到另一个范围
    filterRange.SpecialCells(xlCellTypeVisible).Copy Destination:=ws.Range("C1")
    
    ' 关闭筛选
    ws.AutoFilterMode = False
End Sub

在上述代码中，我们假设要筛选的数据范围为A列，筛选条件为B1单元格的值。筛选结果将复制到C列。

1. 关闭VBA编辑器界面，并返回Excel工作表界面。
2. 在工作表中，选择一个空白单元格，然后插入一个按钮控件（开发工具箱中的按钮），并将其与上述代码关联。双击按钮控件，进入按钮的点击事件代码模块。
3. 在按钮的点击事件代码模块中，插入以下VBA代码：

Private Sub CommandButton1_Click()
    ApplyAutoFilter
End Sub

1. 保存工作表，然后点击按钮，即可按照指定的月份或年份进行自动筛选，并将筛选结果添加到另一个范围中。

这样，你就可以使用VBA按月/年应用自动筛选，并根据月/年筛选在另一个范围内添加值了。

补充说明：

• VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的宏语言，用于自动化任务和自定义功能。
• 自动筛选是Excel提供的一种功能，可以根据给定的条件快速筛选和显示数据。
• 筛选范围指定了需要应用筛选的数据范围。
• 条件范围指定了筛选条件所在的单元格。
• AutoFilter方法用于应用筛选，其中Field参数指定要筛选的列，Criteria1参数指定筛选条件。
• SpecialCells方法用于获取可见单元格的范围，即符合筛选条件的数据。
• Copy方法用于将筛选结果复制到指定的目标范围。
• AutoFilterMode属性用于关闭筛选。