Скопируйте отформатированные данные с одного листа на другой

Question

У меня есть предварительно отформатированная таблица HEAD в диапазоне от A4 до O5, и мне нужно скопировать ее с моей страницы скрытых настроек на новый созданный со всеми форматированием (текст, размер столбца и т. Д.).

Я делаю это:

Dim WS As Worksheet 
    Dim SheetName As String 
    SheetName = TextBox1.Text 
    Sheets.Add.Name = SheetName 
    Sheets("AdminSettings").Range("A4:O5").Copy 
    Sheets(SheetName).Paste 
    Sheets("Programma").Select 

Я нашел это:

Sheets(SheetName).PasteSpecial xlPasteFormats 

, но он не

Это то, что мне нужно, чтобы увидеть:

это то, что я получаю:

кажется, что текст форматируется по мере необходимости, но столбцов и строк размеры - не остаются, как достичь этого?

Answer 1

Во-первых, использовать .PasteSpecial, вы должны вставить в определенный диапазон на листе, так:

Sheets(SheetName).Range("A1").PasteSpecial ... 

Вы пытаетесь скопировать ширину столбцов и высоту строк. Чтобы вставить высоты строк, вся строка должна быть скопирована и вставлена. Чтобы вставить ширину столбцов, требуется второй вызов .PasteSpecial xlPasteColumnWidths.

Итак:

Sheets("AdminSettings").Range("4:5").Copy 
Sheets(SheetName).Range("A1").PasteSpecial xlPasteAll 
Sheets(SheetName).Range("A1").PasteSpecial xlPasteColumnWidths 

должны это сделать.