特别调整的表格部分 pastespecial语法
代码部分:
Sub RngCopy()
Application.Displayalerts=False
Sheet1.Range("A1").CurrentRegion.Copy
With Sheet2.Range("A1")
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteAll
End With
Application.CutCopyMode = False
Application.Displayalerts=True
End Sub