如何通过VBA仅剪切筛选后今日日期的可见数据？

核心修改方案 #

你的Paste_Range子程序直接对固定范围执行Cut，会包含筛选隐藏的行。要只操作可见单元格，需要用SpecialCells(xlCellTypeVisible)方法定位可见区域，同时改用动态范围避免选中大量空行。修改后的代码如下：

Sub Paste_Range()
    Dim sourceSheet As Worksheet
    Dim lastRow As Long
    
    Set sourceSheet = Worksheets("Sheet1")
    ' 获取S列最后一行数据的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "S").End(xlUp).Row
    
    ' 仅剪切可见数据到Today工作表
    sourceSheet.Range("A2:S" & lastRow).SpecialCells(xlCellTypeVisible).Cut _
        Destination:=Worksheets("Today").Range("A2")
End Sub

关键说明 #

• SpecialCells(xlCellTypeVisible)：专门选中当前范围内的可见单元格，自动排除筛选隐藏、手动隐藏的行/列，精准定位需要剪切的目标数据。
• 动态获取最后一行：用Cells(Rows.Count, "S").End(xlUp).Row替代固定的10000，避免选中无效空行，提升代码效率和准确性。

优化整合后的完整宏 #

为避免分步执行多个子程序可能出现的错误（比如"Today"工作表已存在、筛选未生效等），可以把所有逻辑整合为一个宏：

Sub MoveTodayDataToNewSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 检查目标工作表是否存在，不存在则新建
    On Error Resume Next
    Set targetSheet = ThisWorkbook.Worksheets("Today")
    On Error GoTo 0
    If targetSheet Is Nothing Then
        Set targetSheet = ThisWorkbook.Sheets.Add(After:=sourceSheet)
        targetSheet.Name = "Today"
    End If
    
    ' 清除原有筛选（如果存在）
    If sourceSheet.AutoFilterMode Then
        sourceSheet.AutoFilterMode = False
    End If
    
    ' 筛选今日数据（第19列即S列）
    sourceSheet.Range("S1").AutoFilter Field:=19, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
    
    ' 复制表头到目标工作表
    sourceSheet.Range("A1:S1").Copy targetSheet.Range("A1")
    
    ' 获取源数据最后一行
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "S").End(xlUp).Row
    
    ' 剪切可见数据到目标工作表
    If lastRow >= 2 Then
        sourceSheet.Range("A2:S" & lastRow).SpecialCells(xlCellTypeVisible).Cut targetSheet.Range("A2")
    End If
    
    ' 清除源工作表的筛选
    sourceSheet.AutoFilterMode = False
End Sub

额外补充 #

如果剪切后需要删除源工作表中留下的空行，可在剪切步骤后添加以下代码：

' 删除源工作表中筛选后遗留的空行
sourceSheet.Range("A2:S" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete

内容的提问来源于stack exchange，提问作者Nicholas Blake