안녕하세요. 엑셀 합배송관련 질문드립니다.

​

아래 매크로(VBA)를 이용해보세요.

첨부파일을 참고하여 도움되시기를 바라며, 즐거운 하루 보내세요 ^^*

Sub userMacro() Dim lRow As Long Dim oDic As Object Dim vKey, vRow, vTemp Dim WF As WorksheetFunction Dim rPos As Range Set WF = WorksheetFunction Set rPos = Range("M1") rPos.CurrentRegion.Clear Range("A1").CurrentRegion.Rows(1).Copy rPos Set oDic = CreateObject("Scripting.Dictionary") For lRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row vKey = Join(WF.Transpose(WF.Transpose(Cells(lRow, 2).Resize(, 6))), vbTab) vRow = WF.Transpose(WF.Transpose(Cells(lRow, 2).Resize(, 10))) vRow(8) = vRow(7) & vRow(8) If oDic.Exists(vKey) Then vTemp = oDic(vKey) vTemp(8) = vTemp(8) & "+" & vRow(8) oDic(vKey) = vTemp Else oDic.Add vKey, vRow End If Next lRow = 1 For Each vKey In oDic.Keys vRow = oDic(vKey) lRow = lRow + 1 rPos.Cells(lRow, 1) = lRow - 1 rPos.Cells(lRow, 2).Resize(, UBound(vRow)) = vRow Next With rPos.CurrentRegion .Borders.LineStyle = 1 .Columns.AutoFit End With End Sub

​