将周末日期从RawData工作表追加到周末工作表的VBA - AutoFilter

Sub AppendWeekendDates()
    Dim rawDataSheet As Worksheet
    Dim weekendSheet As Worksheet
    Dim rawDataRange As Range
    Dim filteredRange As Range
    Dim lastRow As Long
    
    ' 设置工作表对象
    Set rawDataSheet = ThisWorkbook.Sheets("RawData")
    Set weekendSheet = ThisWorkbook.Sheets("周末工作表")
    
    ' 获取RawData工作表中的数据范围
    lastRow = rawDataSheet.Cells(rawDataSheet.Rows.Count, "A").End(xlUp).Row
    Set rawDataRange = rawDataSheet.Range("A1:A" & lastRow)
    
    ' 使用AutoFilter方法筛选出周末日期
    rawDataRange.AutoFilter Field:=1, Criteria1:="周末"
    
    ' 获取筛选结果范围（不包括标题行）
    Set filteredRange = rawDataRange.Offset(1, 0).SpecialCells(xlCellTypeVisible)
    
    ' 将筛选结果复制到周末工作表中
    filteredRange.Copy Destination:=weekendSheet.Cells(weekendSheet.Rows.Count, "A").End(xlUp).Offset(1, 0)
    
    ' 清除筛选
    rawDataSheet.AutoFilterMode = False
    
    ' 释放对象
    Set rawDataSheet = Nothing
    Set weekendSheet = Nothing
    Set rawDataRange = Nothing
    Set filteredRange = Nothing
End Sub