滿足條件時，將僅行的一部分復制粘貼到另一張紙上，其中一個單元格包含圖片

Question

我有一個名為Data的工作表，其中我在行中列出了產品。 每個產品的信息都在A：W列中。 A列用於公司ID。 根據下拉列表中選擇的ID，我希望將單元格P：W粘貼到名為Quote的工作表中，該工作表從A：H列的第11行開始。 必須注意，工作表數據中的W列用於圖片。

我在網上找到了一些代碼，並試圖使其適應我的情況，但沒有成功。 首先，我無法復制粘貼圖片。 我假設我應該使用Range.Copy方法而不是PasteSpecial方法，但是我無法使其在我的代碼中起作用。 其次，我找不到僅復制和粘貼P：W列中的單元格的正確方法。

Sub Quote()

Dim Data As Worksheet
Dim Quote As Worksheet
Dim CompanyID As String
Dim Finalrow As Integer
Dim i As Integer

Set Data = Sheet3
Set Quote = Sheet2
CompanyID = Sheet6.Range("E5").Value

Data.Select
Finalrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To Finalrow
    If Cells(i, 1) = CompanyID Then
    Range(Cells(i, 1), Cells(i, 23)).Copy
    Quote.Select
    Rows(11).Select
    Range("A200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
    Data.Select
    End If

Next i

Quote.Select
Range("A11:O200").Delete
Range("A1").Select

End Sub

Answer 1

嘗試

Data.Range(Cells(i, 16), Cells(i, 23)).Copy Quote.Range("A200").End(xlUp).Offset(1, 0).resize(1,8)

您可以刪除代碼中的所有.Select行。 在Excel自動化.Select是幾乎從來沒有必要的。 另外，您已經參考了工作表。 如果使用這些參考來確定范圍，則不必翻頁。