여러 테이블에서 조건에 맞는 데이터를 추출하는 매크로

1737 단어 웅대하다Excel
여러 QA 테이블의 미완성 QA를 확인하기 위해 추출 매크로를 만들어 봤다.
QA표는 이런 인상입니다.

QA 미완성 일람은 이런 이미지입니다.


매크로는 이런 느낌.
Sub QA 추출이 완료되지 않았습니다()
Dim qaBookAddress As String
Dim qaBooksRow As Integer, qasRow As Integer, qasExtractRow As Integer, i As Integer, j As Integer
Dim qa As Workbook

'一覧をクリアする
ThisWorkbook.Sheets(1).Range(Cells(3, 1), Cells(1000, 9)).ClearContents

'開始位置の設定
qaBooksRow = 2
qasExtractRow = 3

For i = qaBooksRow To ThisWorkbook.Sheets("config").Cells(Rows.Count, 2).End(xlUp).Row

    qaBookAddress = ThisWorkbook.Sheets("config").Cells(i, 2)

    Set qa = Workbooks.Open(Filename:=qaBookAddress)

    qasRow = 2

    For j = qasRow To qa.Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row

        If qa.Sheets(1).Cells(j, 6).Value <> "完了" Then

            qa.Sheets(1).Range(Cells(j, 1), Cells(j, 9)).Copy
            ThisWorkbook.Sheets(1).Cells(qasExtractRow, 1).PasteSpecial Paste:=xlPasteValues

            ThisWorkbook.Sheets(1).Cells(qasExtractRow, 10) = qaBookAddress

            qasExtractRow = qasExtractRow + 1

        End If

    Next j

    Application.DisplayAlerts = False
    qa.Close
    Application.DisplayAlerts = True

Next i
End Sub

좋은 웹페이지 즐겨찾기