复制＆amp;粘贴错误“操作无法在多个部分上工作”

Question

我正在尝试将过滤后的结果粘贴到相应单元格中的另一列。当我尝试粘贴时，我收到错误“操作无法在多个部分上工作”。知道如何修复代码吗？

LRow = Ws1.Range("CJ" & Rows.Count).End(xlUp).Row
Set PasteRng = Ws1.Range("F1:F" & LRow).SpecialCells(xlCellTypeVisible)
Ws1.Range("CJ1:CJ" & LRow).SpecialCells(xlCellTypeVisible).Copy
PasteRng.PasteSpecial xlPasteValues
Application.CutCopyMode = False

谢谢！

Answer 1

您的代码看起来很好。我测试了它，它给出了我认为你期望的结果。我认为你遇到的问题是某些单元格可能会被合并。在干净的床单上试试。