使用 VBA 复制范围内的所有可见和非空单元格答案

【问题标题】：Use VBA to copy all visible and non-empty cells in a range使用 VBA 复制范围内的所有可见和非空单元格
【发布时间】：2013-09-04 23:33:32
【问题描述】：

过滤后，我想复制所有可见和非空单元格（包含文本的单元格）。出于某种原因，我当前的代码不起作用。任何帮助将不胜感激。谢谢！

  Sheets("Sheet1").Range("S2:S5000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Copy

【问题讨论】：

“由于某种原因，我当前的代码不起作用。”，也许您可以进一步详细说明...

标签： excel copy constants visible vba

【解决方案1】：

完全承认我没有尝试你的代码，但你也可以试试下面的

With Sheets("Sheet1").Range("S2:S5000")
    Application.Intersect(.SpecialCells(xlCellTypeVisible), _
                       .SpecialCells(xlCellTypeConstants)).Copy
End With

开放式假设复制的原因是粘贴到其他地方，您可以使用更新上述代码

With Sheets("Sheet1").Range("S2:S5000")
    Application.Intersect(.SpecialCells(xlCellTypeVisible), _
          .SpecialCells(xlCellTypeConstants)).Copy _
               Destination:= Sheets("destSheet").Range("destRange")
End With

【讨论】：

“所以它们可能不能像你所做的那样一起使用”，为什么不 - 你试过了吗？对我来说很好。您的代码选择所有可见单元格，无论它们是否为常量。我认为他想要所有也是常数的可见单元格。
双重打击，我没有检查，这是不正确的。谢谢你打电话给我@Reafidy；我已经更新了。