我们无法粘贴 Excel 范围，因为复制区域和粘贴区域的大小不同

Question

我想遍历 Worksheet1 中的 A 列并找到第一个具有指定文本“石油生产”的单元格。此单元格是我希望复制到 Worksheet2 的数组中的第一个单元格。这个单元格和数组的大小会不时改变，因此我使用了代码。然后我将它粘贴到 Worksheet2 中的单元格 B7 中，该单元格永远不会改变。

这是我的公式。我在ActiveSheet.Paste 行收到错误消息

Sub Test()
    Application.ScreenUpdating = False
    For Each Cell In Sheets("Sheet1").Range("A:A")
        If Cell.Value = "Oil Production" Then
            ActiveSheet.Cells.Select
            Range(ActiveCell, Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Select
            Selection.Copy
            Sheets("Sheet2").Select
            Range("B7").Select
            ActiveSheet.Paste
        End If
    Next
End Sub

Answer 1

调整区域大小：

Sub Test()
Dim MyRowCount As Long, MyColCount As Long
Application.ScreenUpdating = False
For Each Cell In Sheets("Sheet1").Range("A1:A" & Range("A" & Rows.count).end(xlup).row) 'This make it poll the used data rather than the whole column
    If Cell.Value = "Oil Production" Then
        ActiveSheet.Cells.Select
        With Range(ActiveCell, Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).column))
            .Copy
            MyRowCount = .Rows.Count
            MyColCount = .Columns.Count
        End With
        Sheets("Sheet2").Select
        Range("B7").Resize(MyRowCount, MyColCount).PasteSpecial xlPasteAll
        'Do you need to flick back to Sheet1 after pasting?
    End If
Next
End Sub

我还为你挑选了一堆。

Range("A1").Select
Selection.Paste

可以写成

Range("A1").PasteSpecial XLPasteAll

您可以通过这种方式删除大多数选择，您可以看到我也使用您正在复制的范围完成了它