Excelで条件付きで行を複写する

Question

私は、親子リストに変換する必要がある記事のExcelリストを持っています。各記事は、同じMPN、および/または同じ名前のいずれかを持ちます。サイズや色が異なります。私はCOLSのIDを挿入し、次のリストを達成することができるようにするために、自分自身をPID

MPN  name size 
1  foo S 
1  foo M 
1  foo L 
2  bar S 
2  bar M 
2  bar XL 

：

ID pID MPN  name size 
1  1  foo 
2 1 1  foo S  
3 1 1  foo M 
4 1 1  foo L 
5  2  bar 
6 5 2  bar S 
7 5 2  bar M 
8 5 2  bar L 
9 5 2  bar XL 

ので、すべての行が同じMPNを（持つため、このよう リストを検索しますブロックの上にある最初の行をコピーし、同じ行のIDを同じMPNを含む次の行のpID列に入れます。

IDは実際には文字列なので、連続している必要はありません。それが実現するのが簡単なら...

...は基本的にはCONCATENATE（）pIDとサイズで動作します。

VBAでこれを行うことはできますか？

Answer 1

Sub ConditionallyDuplicateRows() 
Dim lRw As Long 

Application.ScreenUpdating = False 

Range("B1").EntireColumn.Insert 
Range("A1").EntireColumn.Insert 

Range("A1").Value = "ID" 
Range("B1").Value = "pID" 
Range("C1").Value = "MPN" 

lRw = Range("B" & Rows.Count).End(xlUp).Row - 1 

For i = lRw To 1 Step -1 
    If Range("B" & i).Value <> Range("B" & i + 1).Value Then 
     Range("B" & i).Offset(1).EntireRow.Insert 
     'New MPN 
     Range("B" & i).Offset(1, 1).Value = Range("B" & i + 2).Value 
     'New Name 
     Range("B" & i).Offset(1, 2).Value = Range("B" & i + 2).Offset(, 2).Value 

     Range("B" & i).Offset(2, 1).Value = Range("B" & i).Offset(2).Value 
    Else 
     Range("B" & i).Offset(1, 1).Value = Range("B" & i + 1).Value 
    End If 
Next i 

lRw = Range("C" & Rows.Count).End(xlUp).Row 

With Range("A2:A" & lRw) 
    .Formula = "=C2&E2" 
    .Value = .Value 
End With 

Application.ScreenUpdating = True 

End Sub