|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2019
* 아래줄에 질문을 작성하세요 >>
글 보니 파을 보시는게 나을거 같아
첨부 파일 올렸습니다.
문의 내용과 원하는 내용이 있는데,
품목 중에 수량이 2개 이상 일 경우에
품목 추가를 할 수 있는 방법이 있을까요~?
매크로가 아닌 서식으로 가능할까요~?
==============[아이떼떼님 글에 대한 답변입니다]==============
첨부화일 참고하세요
Sub SplitItem()
Dim wst As Worksheet
Dim rDB As Range, rRecords As Range, rRow As Range
Dim rTg As Range
Dim iMax As Integer, iX As Integer
Dim lRow As Long
' 실행 속도를 높이기 위함
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Set wst = ActiveSheet
Set rDB = wst.Range("H11").CurrentRegion
Set rRecords = rDB.Offset(1).Resize(rDB.Rows.Count - 1)
Set rTg = wst.Range("L11")
rTg.CurrentRegion.Offset(1).ClearContents
iMax = WorksheetFunction.Max(rRecords.Columns(2))
For iX = 1 To iMax
For Each rRow In rRecords.Rows
If rRow.Cells(1, 2) >= iX Then
lRow = lRow + 1
rTg.Cells(lRow, 1) = rRow.Cells(1, 1)
rTg.Cells(lRow, 2) = 1
End If
Next
Next
With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
|
|