使用VBA将一个Excel工作表的格式复制到另一个Excel工作表

Question

是否可以使用VBA将一个Excel工作表的格式复制到另一个工作表.

像手动一样,我们可以通过选择整个工作表然后单击格式按钮来完成.然后选择其他工作表和格式将被复制.是否可以通过代码完成.

谢谢和问候Sahil Chaudhary

Answer 1

绝对.以下是示例代码.

请参阅https://msdn.microsoft.com/en-us/library/office/ff837425.aspx

Sub Wsh_PasteSpecial()
Dim WshSrc As Worksheet
Dim WshTrg As Worksheet

Rem Set working worksheets
Set WshSrc = ThisWorkbook.Worksheets("Source")
Set WshTrg = ThisWorkbook.Worksheets("Target")

    WshSrc.Cells.Copy
    With WshTrg.Cells
        .PasteSpecial Paste:=xlPasteColumnWidths
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
        Application.CutCopyMode = False
    End With    
End Sub