嘿，我来帮你搞定这个动态筛选复制的问题！你原来的静态代码不管筛选后哪些行可见，只会固定选到第201行，确实没法满足需求。这里给你一套靠谱的VBA解决方案，专门处理AutoFilter后动态选取前200条可见行的场景：

Sub CopyTop200FilteredRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim dataRange As Range
    Dim visibleArea As Range
    Dim targetCell As Range
    Dim remainingRows As Long
    Dim takeRows As Long
    
    ' 初始化工作表对象（避免用Select，提升代码稳定性）
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    Set targetCell = targetSheet.Range("A1")
    
    ' 定义源数据区域：表头在第1行，数据从A2开始到该列最后一行
    Set dataRange = sourceSheet.Range("A2", sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp))
    
    ' 先检查是否已应用AutoFilter
    If Not sourceSheet.AutoFilterMode Then
        MsgBox "请先对Sheet1应用AutoFilter筛选！"
        Exit Sub
    End If
    
    remainingRows = 200 ' 需要复制的剩余行数
    
    ' 遍历每个筛选后的可见区域（处理不连续可见行的情况）
    For Each visibleArea In dataRange.SpecialCells(xlCellTypeVisible).Areas
        If remainingRows <= 0 Then Exit For
        
        ' 计算当前区域可以提取的行数：取区域行数和剩余需求的较小值
        takeRows = Application.WorksheetFunction.Min(visibleArea.Rows.Count, remainingRows)
        
        ' 直接赋值（比Copy/Paste高效，尤其适合大数据量）
        targetCell.Resize(takeRows).Value = visibleArea.Resize(takeRows).Value
        
        ' 更新剩余行数和目标单元格位置
        remainingRows = remainingRows - takeRows
        Set targetCell = targetCell.Offset(takeRows)
    Next visibleArea
    
    ' 完成提示
    If remainingRows < 200 Then
        MsgBox "已成功复制" & (200 - remainingRows) & "条可见行到Sheet2！"
    Else
        MsgBox "可见行不足200条，已复制全部" & (200 - remainingRows) & "条可见行！"
    End If
End Sub

• 摒弃Select/Selection：这是VBA开发的最佳实践，避免因工作表切换、焦点变化导致的报错，代码更稳定
• 动态识别可见行：用SpecialCells(xlCellTypeVisible)精准获取筛选后的可见单元格区域，自动跳过隐藏行
• 处理不连续可见区域：筛选后常出现不连续的可见行（中间夹杂隐藏行），通过遍历Areas集合确保只取可见行
• 容错处理：自动判断可见行是否不足200条，不会因数据量不够报错，还会给出明确提示
• 高效赋值：直接通过Value属性赋值，比传统的Copy/PasteSpecial快数倍，尤其适合大型数据列表

• 如果你的表头不在第1行，只需修改dataRange的起始行（比如表头在第2行，就把A2改成A3）
• 如需复制多列（比如A到D列），把Range("A2")改成Range("A2:D2")，同时目标区域的赋值逻辑会自动适配
• 可以修改remainingRows = 200中的数值，调整需要复制的行数

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