使用vba

Question

我有一个代码在表上查找特定名称。我希望将这些信息附加到表格中。

谢谢

Sub findData()
    Dim workflow As String
    Dim finalrow As Integer
    Dim i As Integer

    workflow = Sheets("Sheet1").Range("c5").Value
    servergri = Sheets("sheet1").Range("c9").Value
    gridf = Sheets("sheet1").Range("c9").Value
    finalrow = Sheets("Sheet3").Range("c100").End(xlUp).Row

    For i = 5 To finalrow
        If Cells(i, 3) = workflow Then
            If Cells(i, 4) = servergri Then
                Range(Cells(i, 3), Cells(i, 8)).Copy
                Range("j42").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
            ElseIf Cells(i, 5) = gridf Then
                Range(Cells(i, 3), Cells(i, 8)).Copy
                Range("j42").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats

                ActiveCell.Offset(1).EntireRow.Insert
            End If
        End If

    Next i

End Sub

Answer 1

ActiveCell.Offset(1).EntireRow.Insert

只需将其放入，但首先要确保正确的单元格处于活动状态。