私はツールは、私はテーブルの上に特定の名前を検索するコードを持っている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 

はこれを入れたが、最初に正しいセルがアクティブであることを確認してください。