主页 / 问题 / 883889
Accepted
Leksor
Asked:2020-09-21 18:35:08 +0000 UTC2020-09-21 18:35:08 +0000 UTC

将范围从一张纸复制到另一张纸

  • 772

有一本书有 10 张。您需要将第 8 页的内容复制到第 3 页。

我试图通过以下方式做到这一点：

Set CurrentWorkbook = ThisWorkbook
Set sheetTemp = CurrentWorkbook.Worksheets(8)

With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With
With CurrentWorkbook
     sheetTemp.Copy CurrentWorkbook.Worksheets(3)
End With
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With

一切正常，但不是写入第三张纸，而是在第三张纸之前创建一张新纸。如何确保在复制时不会创建新工作表并写入现有工作表？

excel

1 个回答

  1. Best Answer

    列的完整副本（宽度、格式、值、注释...）：

    Sub CopyRange()
    Worksheets("Лист1").Columns("C:E").Copy
    Worksheets("Лист2").Columns("C:E").PasteSpecial
End Sub

    或者

    Sub CopyRange()
    Worksheets("Лист1").Columns("C:E").Copy Worksheets("Лист2").Columns("C:E")
End Sub

    仅复制您需要的内容：

      Worksheets("Лист1").Range("C3:E50").Copy

  With Worksheets("Лист2").Range("C3")
      .PasteSpecial xlPasteColumnWidths ' ширина столбца'
      .PasteSpecial xlPasteValues' значения'
      .PasteSpecial xlPasteFormats' форматы'
      .PasteSpecial xlPasteFormulasAndNumberFormats ' формулы'
      ' .....'
  End With

    复制后清除缓冲区：

    Application.CutCopyMode = False
    • 2

相关问题