VBA excel错误“此操作不适用于多项选择”

Question

我正在尝试将数据从一张纸复制到多张纸，但出现错误：

此操作不适用于多项选择。

这是我正在使用的代码：

.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy
    Sheets(cell.Value).Range("A12").PasteSpecial Paste:=xlPasteValues

Answer 1

Thaks

我能够找到答案。...我粘贴的目的地是表格格式，因此会产生错误。允许多选复制，但不允许以预定义的表格格式粘贴。

解决方案：排序并复制所需的行并粘贴

非常感谢。