从单工作表复制数据至多工作表时触发VBA报错：This action won't work on multiple selection

嘿，这个报错我太熟悉了！你碰到的问题根源很明确：SpecialCells(xlCellTypeVisible) 返回的是不连续的单元格区域（筛选后可见行往往是跳着的），而Excel不允许把这种多选区一次性复制粘贴到多个工作表上——这就是那句报错的由来。

为什么你的原代码会出错？ #

原代码里你试图直接把筛选后的多选区复制，同时粘贴到多个工作表（如果Sheets(cell.Value)指向多个表的话），这违反了Excel的操作限制：多选区只能粘贴到单个目标区域，不能同时怼到多个工作表。

两种可行的解决方案 #

方案1：逐个遍历目标工作表，逐个粘贴

最直接的修复方式是循环处理每个目标工作表，每次只把数据粘贴到一个表上，这样就避开了多选区+多工作表的冲突。比如修改后的代码：

' 先把筛选后的可见区域存为变量，避免重复计算
Dim visibleRange As Range
Set visibleRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)

' 假设你是从某个单元格列表里获取目标工作表名称，循环处理每个表
Dim targetSheetName As Range
For Each targetSheetName In ' 替换成你的工作表名称所在的单元格区域（比如Range("C2:C8")）
    ' 先检查表是否存在，避免报错
    On Error Resume Next
    Dim targetWs As Worksheet
    Set targetWs = ThisWorkbook.Sheets(targetSheetName.Value)
    On Error GoTo 0
    
    If Not targetWs Is Nothing Then
        visibleRange.Copy
        targetWs.Range("A12").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False ' 清除复制状态，避免内存占用
    End If
Next targetSheetName

方案2：用临时表/数组中转，转成连续数据再批量写入

如果数据量较大，复制粘贴效率低，还可以把筛选后的可见数据先转成连续的区域（或数组），再一次性写入多个工作表。这种方法更高效：

Dim visibleRange As Range
Set visibleRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)

' 新建临时工作表存放连续数据
Dim tempWs As Worksheet
Set tempWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
visibleRange.Copy
tempWs.Range("A1").PasteSpecial Paste:=xlPasteValues

' 把临时表的数据存入数组
Dim dataArr As Variant
dataArr = tempWs.UsedRange.Value

' 删除临时表
Application.DisplayAlerts = False
tempWs.Delete
Application.DisplayAlerts = True

' 批量写入目标工作表
Dim targetSheetName As Range
For Each targetSheetName In ' 替换成你的工作表名称区域
    Dim targetWs As Worksheet
    On Error Resume Next
    Set targetWs = ThisWorkbook.Sheets(targetSheetName.Value)
    On Error GoTo 0
    
    If Not targetWs Is Nothing Then
        ' 从A12开始写入数组数据
        targetWs.Range("A12").Resize(UBound(dataArr, 1), UBound(dataArr, 2)).Value = dataArr
    End If
Next targetSheetName

小提示 #

• 如果cell.Value只是单个工作表名称，那原代码的问题可能是SpecialCells返回了多选区，你可以先把多选区合并成连续区域再粘贴（比如用临时表的方法）。
• 记得加上错误处理，避免因为工作表不存在导致代码崩溃。

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