조건에 맞는 값 추출(행 추가) 하는 방법이 있을까요~?

@SuReLinE 님 수식으로 푸는 방법과 파워쿼리로 푸는 방법, 두 가지 경우로 풀어보았습니다.

첨부파일 : QQQ-1.xlsx

비슷한 예시를 찾았는데..

어딜 어떻게 수정해야 할지 ㅠ.ㅠ

Sub RepeatData()

Dim DataSheet As Worksheet
Dim PasteSheet As Worksheet

Dim RepeatData As Variant
Dim RepeatNum As Variant

Dim i As Long
Dim j As Long
Dim k As Long

Set DataSheet = Worksheets("RAW_DATA")
Set PasteSheet = Worksheets("결과")
k = 2

ReDim RepeatData(1 To DataSheet.Cells(2, 1).End(xlDown).Row)
ReDim RepeatNum(1 To DataSheet.Cells(2, 1).End(xlDown).Row)

For i = 2 To DataSheet.Cells(2, 1).End(xlDown).Row
For j = 1 To DataSheet.Cells(2, 1).End(xlToRight).Column
RepeatData(i) = RepeatData(i) & DataSheet.Cells(i, j).Value & ","
Next
RepeatNum(i) = DataSheet.Cells(i, 6).Value
Next

For i = 1 To UBound(RepeatData)
PasteSheet.Cells(k, 1) = RepeatData(i)
k = k + RepeatNum(i)
For j = k - RepeatNum(i) + 1 To k - 1
PasteSheet.Cells(j, 1) = RepeatData(i)
Next
Next
PasteSheet.Range("A1").Resize(k - 1, 1).TextToColumns _
Destination:=PasteSheet.Cells(1, 1), _
DataType:=xlDelimited, comma:=True

PasteSheet.Range(PasteSheet.Cells(1, 1), PasteSheet.Cells(1, PasteSheet.Cells(1, 1).End(xlToRight).Column)).EntireColumn.AutoFit

End Sub