0

我有与链接中类似的问题

复制行内容和格式（到另一张纸）

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

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
4

1 回答 1

0 
.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths
于 2013-08-23T17:56:32.747 回答