Как скопировать лист с размером колонок в vba?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

Sub CopySheet()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    Set wsSource = ThisWorkbook.Worksheets("SourceSheet") 'указываем имя копируемого листа
    Set wsTarget = ThisWorkbook.Worksheets.Add 'создаем новый лист, на который будем копировать
    
    'копируем содержимое и формат
    wsSource.Cells.Copy
    wsTarget.Cells.PasteSpecial xlPasteAll
    
    'копируем ширину колонок
    For i = 1 To wsSource.Columns.Count
        wsTarget.Columns(i).ColumnWidth = wsSource.Columns(i).ColumnWidth
    Next i
End Sub

1
2
3
4
5
6
7

Sub CopySheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Имя листа") 'замените "Имя листа" на имя вашего листа
    ws.Copy after:=ThisWorkbook.Sheets(ws.Index)
    'Копирование размеров колонок
    ThisWorkbook.Sheets(ws.Index + 1).Columns.ColumnWidth = ws.Columns.ColumnWidth
End Sub