我明白你的困扰——刚复制完筛选后的内容，一取消筛选就没法粘贴了，这确实是Excel VBA里常见的小坑，问题根源就是取消筛选的时机和复制的可见单元格的关联性：当你复制筛选后的可见区域时，Excel的剪贴板里其实是保留了对这个筛选区域的引用，而不是直接把内容存进去，一旦你取消筛选，这个引用就失效了，剪贴板自然就空了。

先说说你原代码里的两个小问题：

• Range("D6","D13:D9999").Select其实是选中了从D6到D9999的整个连续区域，而不是你想要的「D6单元格 + 筛选后可见的D13:D9999」，这会把隐藏的单元格也复制进去，不符合需求。
• 复制后立刻取消筛选，导致剪贴板里的筛选区域引用失效，内容丢失。

下面是修正后的代码，用临时工作表中转的方法，彻底解决这个问题：

Sub CopyFilteredDataToClipboard()
    Dim ws As Worksheet
    Dim filteredVisibleRange As Range
    Dim targetCopyRange As Range
    Dim tempSheet As Worksheet
    
    ' 定位到目标工作表
    Set ws = ThisWorkbook.Worksheets("Cost")
    
    ' 应用颜色筛选
    ws.Range("D13:D9999").AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
    
    ' 获取筛选后的可见单元格（处理无匹配结果的情况）
    On Error Resume Next
    Set filteredVisibleRange = ws.Range("D13:D9999").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 合并D6和筛选后的可见区域
    If Not filteredVisibleRange Is Nothing Then
        Set targetCopyRange = Union(ws.Range("D6"), filteredVisibleRange)
    Else
        ' 如果没有符合条件的单元格，只复制D6
        Set targetCopyRange = ws.Range("D6")
    End If
    
    ' 用临时工作表中转，避免取消筛选影响剪贴板
    Set tempSheet = ThisWorkbook.Worksheets.Add
    targetCopyRange.Copy Destination:=tempSheet.Range("A1")
    ' 复制临时表的内容到剪贴板
    tempSheet.UsedRange.Copy
    
    ' 清理临时工作表
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    ' 取消筛选
    ws.Range("D13:D9999").AutoFilter
    
    ' 保持复制状态，让用户可以直接Ctrl+V粘贴
    Application.CutCopyMode = True
End Sub

代码说明： #

• 精准获取可见区域：用SpecialCells(xlCellTypeVisible)只拿到筛选后显示的单元格，避免复制隐藏内容。
• 临时工作表中转：把需要复制的内容先粘贴到临时工作表，再复制临时表的内容——这时候剪贴板里的是普通单元格内容，和原工作表的筛选状态完全无关，取消筛选也不会影响。
• 异常处理：加入了On Error Resume Next处理没有筛选结果的情况，避免代码报错。
• 清理操作：删除临时工作表时关闭提示，保证流程顺畅。

你可以直接运行这个宏，之后就能正常用Ctrl+V把内容粘贴到Word、记事本等应用里了。

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