Excelのマクロに関する質問です。良い回答は、700ポイント差し上げます。

コメント欄が開いていないので本回答で失礼。

○□

には何か入っているということ？

それとも逆に何も入っていないということ？

データの開始点は「No　サブNO 部品名　用途　　××」の

次の行からと認識できるのだけれども各部品に必要なパーツの終点となっている行を

求めるために、この情報は必須かと・・・。

それとExcelのバージョンも書いておいたほうがよろしいかと思います。

（Excel95/97って事は無いと思いますが

Excel2000あたりはバリバリ現役だったりしますから・・・）

これから寝るので回答には間に合わないと思いますが

以上、気になりましたので、ご確認くださいませ。

※コメント欄空けておくと、こういった程度のことでポイント使わなくて済みますし

他の方も即時確認できるのでよろしいかと思います。

検索対象を現在のブック内のすべてのシート、出力は新規に作成するという仕様での例です。

検索を行うファイルの標準モジュールに下記を貼り、実行してみてください。

不明な点、仕様の変更はコメントに手対応いたしますので、有効にお願いいたします。

'---------------------------------------------
Sub makeList()
'---------------------------------------------
    
'---------------------------------------------
' リスト出力ファイルを新規に作成
'---------------------------------------------
    Dim listWB As Workbook
    Set listWB = Workbooks.Add()
    
    Dim listWS As Worksheet
    Set listWS = listWB.Worksheets(1)
    
    Dim ws As Worksheet
    Dim listRow As Long
    Dim lastRow As Long
    Dim i As Long
'---------------------------------------------
' 現在のブックのすべてのシートを検索
'---------------------------------------------
    For Each ws In ThisWorkbook.Worksheets
        With ws
'---------------------------------------------
' C列を見て、最終行を判断
'---------------------------------------------
        lastRow = .Range("C" & Rows.Count).End(xlUp).Row
        For i = 1 To lastRow
'---------------------------------------------
' リストするデータは下記の条件をすべて満たす場合
'   A列が 「No」ではない
'   A列が 「部品名」ではない
'   C列が 空白ではない
'---------------------------------------------
            If Len(Trim(.Cells(i, "C"))) > 0 _
                And InStr(.Cells(i, "A"), "No") = 0 _
                And InStr(.Cells(i, "A"), "部品名") = 0 Then
                listRow = listRow + 1
                .Range("A" & i).Resize(1, 4).Copy Destination:=listWS.Range("A" & listRow).Resize(1, 4)
            End If
        Next
        End With
    Next
End Sub