Question

Hiya对此有点陌生，我确实找到了一个像我的问题一样的示例，但无法解决该问题。这是一个简单的任务，对不起。我希望代码从我的远程单元格向下粘贴而不是向上（hmm对我来说是显而易见的，但是不好）。这是我的代码，它搜索一张纸并将结果粘贴到另一张纸上，但是上升而不是下降。我确定您在某个地方有一个示例，但找不到它。非常感谢Steve，我上次被告知是因为它显示正确。不好意思。

For i = 2 To finalrow
        If Cells(i, 1) = Manufacturer And Cells(i, 2) = Model Then 'if the name matches then search and copy
        Range(Cells(i, 1), Cells(i, 19)).Copy ' copy 19 columns -details
        Worksheets("Man_Mod").Select ' go to to specific sheet
         Range("F4").End(xlUp).PasteSpecial xlPasteFormulasAndNumberFormats ' find the first blank row and paste
        Worksheets("Link_Table").Select 'GO BACK TO WRENCH DATA AND CONTINUE SEARCHING
        End If

Next i

Answer 1

第一步是find the last row。
avoid using Select的另一个改进之处。

With Worksheets("Link_Table")
    For i = 2 To finalrow
        If .Cells(i, 1).Value = Manufacturer And .Cells(i, 2).Value = Model Then
            .Cells(i, 1).Resize(,19).Copy
            Worksheets("Man_Mod").Range("F" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteFormulasAndNumberFormats
        End If
    Next i
End With

复制并粘贴，上一行而不是下一行进行粘贴

1 个答案: