수량 나누기

Question

매크로를 설정 한 적이 없지만 스프레드 시트의 "수량"열을보고 (1) 수량이 아닌 항목을 가져 와서 항목을 복제합니다 "수량"열에 나열된 시간

누군가 내가 설정할 수있는 방법을 말해 줄 수 있습니까?

Answer 1

다음은 시작하는 데 도움이되는 정보입니다. 이것은 다음과 같은 코드를 달성 할 수

 Col A Col B     Col A Col B 
1  Item  Quantity    Item  Quantity 
2  Apple 1      Apple 1 
3  Orange 2      Orange 
4  Banana 1    -----> Orange 2 
5  Pear  4      Banana 1 
6  Grape 2      Pear 
7          Pear 
8          Pear 
9          Pear  4 
10         Grape  
11         Grape 2 

: 난 당신이 다음과 같이 원하는 가정입니다

Sub ExpandItem() 
    Dim lastRow As Long, rngQuantity As Range, rw As Long 

    lastRow = Range("A1").End(xlDown).Row 

    For rw = lastRow To 2 Step -1 
     If Cells(rw, 1) > 1 Then 
      AddItem Cells(rw, 1), Cells(rw, 1).Offset(0, 1) 
     End If 
    Next rw 
End Sub 

Sub AddItem(item As Range, quantity As Long) 
    Dim i As Long 
     For i = 1 To (quantity - 1) 
       item.EntireRow.Insert Shift:=xlDown 
       item.Offset(-1, 0) = item.Value 
     Next i 
End Sub 

는 희망이 당신이 올바른 방향으로