여러 테이블에서 조건에 맞는 데이터를 추출하는 매크로
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
Reference
이 문제에 관하여(여러 테이블에서 조건에 맞는 데이터를 추출하는 매크로), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/b0800075/items/8c2b0fe9c22d6e59e5c6텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)