如何将FILTERED数据的数据从一个工作表复制到另一个工作表，格式相同

Question

我有与链接

中类似的问题

Copy a rows contents and formatting (to another sheet)

我正在尝试使用以下代码将数据从一张工作表复制到同一工作簿中的另一张工作表，我可以复制，但复制后单元格的格式会发生变化，如何复制具有相同单元格格式（具有相同的长度，宽度，颜色等）的数据

With ActiveSheet
     .UsedRange.SpecialCells(xlCellTypeVisible).Copy
End With

ActiveWorkbook.Worksheets(NewSheet).Select
With ActiveSheet
    .Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False
End With

Answer 1

.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths