Как скопировать ячейки xlCellTypeVisible и сохранить их форматирование (полужирный текст)? - PullRequest
Новая
       22

Как скопировать ячейки xlCellTypeVisible и сохранить их форматирование (полужирный текст)?

0 голосов
/ 28 июня 2018

Я использую этот кусок кода, чтобы скопировать и вставить некоторые вещи: 

            .SpecialCells(xlCellTypeVisible).Copy

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

Однако, когда он вставляется, он теряет форматирование. Часть текста, который я копирую, выделена жирным шрифтом, и я хотел бы, чтобы он оставался жирным. Как мне этого добиться?

1 Ответ

0 голосов
/ 28 июня 2018

Попробуйте прямое копирование прямо в место назначения, затем вернитесь и возьмите ширину столбцов, которые остались позади. 

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