ML089

¦^´_ 1# jackson7015

Sub ·s¼W¼Æ¶q()
    Dim Rng As Range
    Set Rng = Rows("1:47")
    Rng.Copy
    With Rows("48:48").Resize(, Rng.Rows.Count)    'columns/rows
        .PasteSpecial Paste:=xlPasteFormats    '®æ¦¡
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats    '­È
        .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats    '¤½¦¡
    End With
End Sub

ML089

¦^´_ 4# jackson7015
³o¼Ë¸Õ¸Õ

Sub ·s¼W¼Æ¶q()
    Dim Rng As Range
    Application.DisplayAlerts = False
    Set Rng = Rows("1:47")
    Rng.Copy
    Rows("48:48").Resize(, Rng.Rows.Count).PasteSpecial Paste:=xlPasteAll
    Application.DisplayAlerts = True
End Sub