コピーシートコメントを含む

Question

コメントを含む1つのブックから別のブックにシートをそのままコピーすることを検討しています。これまでのところ、私はこれを行う簡単な方法を見つけていません。 これは、コピーのために完璧にうまく機能してコメントなしワークブックにシートの内容を貼り付けるコードは次のとおりです。

Sub copyOrRefreshSheet(destWb As Workbook, sourceWs As Worksheet) 
    Dim ws As Worksheet 
    On Error Resume Next 
    Set ws = destWb.Worksheets(sourceWs.Name) 
    On Error GoTo 0 
    If ws Is Nothing Then 
     sourceWs.Copy After:=destWb.Worksheets(destWb.Worksheets.Count) 
    Else 
     ws.Unprotect Password:="abc123" 
     ws.Cells.ClearContents 
     ws.Range(sourceWs.UsedRange.Address).Value = sourceWs.UsedRange.Value2 
    End If 
End Sub 

私は、それがこの問題を解決するために、コードの約1行を取ると確信していますちょうど方法を知らない。前もって感謝します。

Answer 1

てみ変更：

ws.Range(sourceWs.UsedRange.Address).Value = sourceWs.UsedRange.Value2 

へ：

sourceWs.UsedRange.Copy 
ws.Range(sourceWs.UsedRange.Address).PasteSpecial(xlPasteAll)