复制表格，包括评论

我正在寻找将工作表从一个工作簿复制到另一个工作簿的原样， 包括注释。 到目前为止，我还没有find一个简单的方法来做到这一点。 这是代码完美地工作，复制和粘贴工作簿的内容没有评论：

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 

我相信这大概需要一行代码来解决这个问题，我只是不知道如何。 先谢谢你。

Answer 1

尝试改变：

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

至：

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