Question

我想要复制整行，但问题是如果第一行或最后一行有空单元格，myRange.Copy行会给出错误消息＆＃34;该命令不能用于多个选择＆＃34;

Sub SaveLastLine()

    Dim WB As Workbook
    Dim myRange As Range

    'copy the content
        Set myRange = Union(Range(Range("B1:B3"), Range("B1:B3").End(xlToRight)), _
                            Range(Range("B1").End(xlDown), Range("B1").End(xlDown).End(xlToRight)))
        myRange.Copy

    'paste the content
        Set WB = Workbooks.Add
        WB.ActiveSheet.Range("A1").PasteSpecial

End Sub

即使有一些空单元格，我如何复制行？

请有人帮助我。

Answer 1

更改“范围”设置，使其拉出范围内所有行的整行：

Dim myRange
Set myRange = ActiveSheet.Range("B1:B3")
myRange.EntireRow.Copy

然后将PasteSpecial正确地粘贴到新工作簿中

如何复制整行而没有由空单元格引起的错误？

1 个答案: