Excel Vbaコピー＆ペースト

Question

1つの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コマンドを使用して、元の書式を維持することができます。

推奨：あなたの代わりに、Activate、SelectとSelectionから滞在参照Workbook sおよびSheetsを使用する場合、それは常に良いでしょう。

（詳細はHow to avoid using Select in Excel VBA macrosに行くため）

コード

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