Excel関数の質問をVBAでやってみた。

　ポイント、沢山ありがとうございました。なんか、いただき過ぎた感があるので、参考までに質問をVBAでもやってみました。(^_^;

Sub macro1()
    Dim i, j As Integer
    
    j = 3
    For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, "C").Value = 1 And Cells(i, "D").Value = 1 And Cells(i, "E").Value = 0 Then
            Range(Cells(j, "I"), Cells(j, "N")).Value = Range(Cells(i, "A"), Cells(i, "F")).Value
            j = j + 1
        End If
    Next i
End Sub

※参考URL
●Excelで3つの条件に一致する行のみを抽出したいです - 人力検索はてな
●RangeとCellsの使い方｜VBA入門
●最終行の取得（End,Rows.Count）｜VBA入門