vba将单元格范围复制到新工作簿

Question

我想将多个工作表复制到从范围 (A3) 开始到每个表的表末尾的新工作簿，因此使用了以下代码，但它复制了整个工作表。

Private Sub Copytonewworkbook_Click()
Dim NewName As String
Dim nm As name
Dim ws As Worksheet

If MsgBox("Copy specific sheets to a new workbook" & vbCr & _
"New sheets will be pasted" , vbYesNo, "NewCopy") = vbNo Then 
Exit Sub
With Application
.ScreenUpdating = False
On Error GoTo ErrCatcher
Sheets(Array("Payroll", " Bank Letter")).Copy
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
    ws.Cells(3,33)Paste:=xlCellTypeFormulas
    Application.CutCopyMode = False
    Cells(1, 1).Select
    ws.Activate
    Next ws
    Cells(1, 1).Select
    For Each nm In ActiveWorkbook.Names
    nm.Delete
    Next nm
    NewName = InputBox("Please Specify the name of your new workbook", "New Copy")
    ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & NewName & ".xls"
    ActiveWorkbook.Close SaveChanges:=False
    .ScreenUpdating = True
    End With
    Exit Sub
    ErrCatcher:
    MsgBox "Specified sheets do not exist within this workbook"
    End Sub

Answer 1

这是一种可能的方法（有点高级，因为它不使用副本，但它获取值）：

Public Sub CopyMe()

    Dim lLastRow    As Long
    Dim rngToCopy   As Range
    Dim shtTarget   As Worksheet

    With ActiveSheet
        lLastRow = .Cells(.Rows.Count, 1).End(xlUp).row
        Set rngToCopy = .Rows("3:" & lLastRow)
    End With

    Set shtTarget = ActiveWorkbook.Worksheets("Report")

    shtTarget.Rows("1:" & rngToCopy.Rows.Count).value = rngToCopy.value

End Sub

您将活动表第一列中从第三行到最后一个值的行复制到名为Report 的工作表中。

补充： 即时，无需尝试，您也可以这样做：

Sheets(Array("Payroll", " Bank Letter")).Copy
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
    ws.Paste:=xlCellTypeFormulas
    WS.ROWS("1:3").Clear