Excel-VBA：将可见单元格复制粘贴到可见单元格

Question

我希望编写一个宏来将一张纸中选择的可见（即非隐藏，未过滤）单元格的格式仅复制到另一张纸中选择的可见单元格中。

我的VBA有点生疏，所以如果有人能帮助我自己写的代码，或者提供一些替代代码，我会非常感激。

这是我当前的代码（带有注释掉的代码，有人建议我取消注释该代码）：

Sub Copy_Paste_Visible()



    Set CopyRng = Application.Selection
    CopyRng = CopyRng.SpecialCells(xlCellTypeVisible).Copy' _
        'Destination:=Range("A1").Offset(ColumnOffset:=1)



    Set PasteRng = Application.InputBox("Paste to :", xTitleId, Type:=8)

    PasteRng = PasteRng.SpecialCells(xlCellTypeVisible) '.Copy _
         'Destination:=Range("A11").Offset(ColumnOffset:=1)

    'CopyRng.Copy
    PasteRng.Parent.Activate
    'PasteRng.Activate
    PasteRng.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False

End Sub

使用此代码，在线

PasteRng.Parent.Activate

我收到以下错误消息：

如果有人能够提供任何意见，那就太棒了。

Answer 1

试试这个：

 Public Sub CopyOnlyVisibleCells()

    Dim rangeToCopy     As Range

    Set rangeToCopy = Selection
    rangeToCopy.SpecialCells(xlCellTypeVisible).Copy
    Worksheets(2).Range(rangeToCopy.Address).PasteSpecial xlPasteAll
    Application.CutCopyMode = False

End Sub

它几乎需要选择，并将可见单元格复制到Worksheets(2)中选择的同一地址。您可以使用它来使其更好地工作。

关于错误 - 如果您尝试激活PasteRng的父范围，那么很可能您的意思是工作表。因此，这样的事情应该有效：

Worksheets(PasteRng.Parent.Name).Activate

一般情况下，Select和Activate的使用被视为不良做法 - How to avoid using Select in Excel VBA