Excel Vba復制和粘貼

Question

將數據從一個Excel工作表復制到另一工作簿時，我必須粘貼相同格式的數據，因為每個單元格都有內部顏色。 我還將從復制的原始工作表中刪除數據。 是否可以保留源格式？

Workbooks.Add
Set Outbook1 = ActiveWorkbook
OutBook.Activate
OutBook.Sheets("Sheet6").Select
Lines = ActiveSheet.Range("A65536").End(xlUp).Row
Range("A1:N" & Lines).Select
Selection.Copy

Outbook1.Activate
Outbook1.Sheets("Sheet1").Range("A1").PasteSpecial (xlPasteAll)

Answer 1

您可以使用PasteSpecial xlPasteAll命令保留源格式（只要不是條件格式）。

建議 ：如果不Select Activate ， Select和Selection ，而是使用參考的Workbook和Sheets總是更好。

（有關更多詳細信息，請轉到如何避免在Excel VBA宏中使用“選擇” ）。

碼

Option Explicit

Sub CopyBetweenSheets()

Dim Outbook1        As Workbook
Dim OutBook         As Workbook
Dim Lines           As Long

Set OutBook = ThisWorkbook
Set Outbook1 = Workbooks.Add

With OutBook
    With .Sheets("Sheet6")
        ' find last row in Column A in "Sheet6"
        Lines = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A1:N" & Lines).Copy
    End With
End With

' paste to "A1" in "Sheet1" in the new workbook
Outbook1.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteAll

End Sub