如何复制 xlCellTypeVisible 单元格并保持其格式（粗体文本）？

Question

我正在使用这段代码来复制和粘贴一些东西：

            .SpecialCells(xlCellTypeVisible).Copy

            Wsh.Cells(1).PasteSpecial Paste:=8
            Wsh.Cells(1).PasteSpecial Paste:=xlPasteAll
            Wsh.Cells(1).PasteSpecial Paste:=xlPasteFormats

但是，粘贴时会丢失格式。我正在复制的一些文本是粗体，我希望它保持粗体。我怎样才能做到这一点？

Answer 1

尝试直接复制到目标，然后返回并选择留下的列宽。

with .SpecialCells(xlCellTypeVisible)
    .copy destination:=Wsh.Cells(1)
    .copy
    Wsh.Cells(1).PasteSpecial Paste:=xlPasteColumnWidths
end with

如何复制 xlCellTypeVisible 单元格并保持其格式（粗体文本）？

How to copy xlCellTypeVisible cells and keep their formatting (bold text)?

excel

vba

ms-office