ワークシートの値を別のワークシートファイルにコピー

Question

最初の2行は、完全なシートを別のファイルにコピーするループです。値だけから。コメントアウトされている2番目の部分は、値だけをコピーするように動作します。しかし、最初の2行に値を指定したように書式をコピーします。どのように私はこれを組み合わせることができます。私は他の例を見て、私は動作する答えを得るように見えることができません。おかげ

   xlWorksheetSource = xlWorkbookSource.Sheets(sheet.Name) 
       xlWorksheetSource.Copy(After:=xlWorkbookDestination.Worksheets(xlWorkbookDestination.Worksheets.Count)) 


       'xlWorksheetSource.UsedRange.Copy() 
       'xlWorkDestSource = xlWorkbookDestination.Worksheets.Add() 
       'xlWorkDestSource.UsedRange._PasteSpecial(XlPasteType.xlPasteValues, XlPasteSpecialOperation.xlPasteSpecialOperationNone, False, False) 
       'xlWorkDestSource.Name = sheet.Name 

Answer 1

これは、セルの書式と値を貼り付けていきます。

xlWorksheetSource.UsedRange.Copy() 
xlWorkDestSource = xlWorkbookDestination.Worksheets.Add() 
xlWorkDestSource.Range("A1").PasteSpecial xlPasteAllUsingSourceTheme 
xlWorkDestSource.Range("A1").PasteSpecial xlPasteValues 

あなただけの必要がある場合は、これを行うことができます書式設定値や数：

xlWorksheetSource.UsedRange.Copy() 
xlWorkDestSource = xlWorkbookDestination.Worksheets.Add() 
xlWorkDestSource.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats 

更新

を

マージされたセルを操作するには、これが機能します。 が

xlWorksheetSource = xlWorkbookSource.Sheets(sheet.Name) 
       xlWorksheetSource.Copy(After:=xlWorkbookDestination.Worksheets(xlWorkbookDestination.Worksheets.Count)) 

xlWorkDestSource = xlWorkbookDestination.Worksheets(xlWorkbookDestination.Worksheets.Count) 

For each cel in xlWorkDestSource.UsedRange 
    cel.MergeArea.Value = cel.MergeArea.Value 
Next 

*より良い/より高速な方法があるかもしれませんあなたのコードではなかったので、私は、オブジェクトのいずれかを修飾していないことに注意したが、その間違いなくベストプラクティスしてください。