VBA 强行复制

假如原Sheet页被限制不能复制时可以试试此方法。

Option Explicit

Sub ForcedCopy()
    Dim strSheetSource As String
    Dim strSheetTarget As String
    
    strSheetSource = "Sheet1"
    strSheetTarget = "Sheet2"
    
    Sheets(strSheetSource).Cells.Copy
    Sheets(strSheetTarget).Range("A1").Select
    ActiveSheet.Paste
    
End Sub