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单元格并保持其格式（粗体）？

1 个答案: