excel에서 두 숫자의 차이가 0보다 큰 경우 행을 삽입하는 방법은 무엇입니까?

Question

는 I 간단한 엑셀 테이블이 나는 특정 행 예

후에 행 n 번호를 삽입 할 :

싶습니다

행의 n 번호를 삽입하는 경우 B 및 C 차이 열이 0보다 큽니다.

삽입 할 열의 개수는이 두 셀의 차이입니다.

(가능하면) D 열의 숫자를 삽입 된 셀 수만큼 늘리고 싶지만 사용할 수식을 모르겠습니다.

VBA에서 약간의 매크로를 수행했지만 VBA에 대한 경험이 없으며 첫 번째 행만 수행 할 수 있으며 행을 필요한 수만큼 삽입 할 수 없습니다.

내 코드 :

Sub insertCells() 

    Dim x As Long 
    c = Range("C1").Value 

    Dim id As Long 
    id = Range("A1").Value + 1 

    Dim y As Long 
    b = Range("B1").Value 

    Dim i As Long 
    i = c - b 

    Do Until i = 0 
     Rows(id).Insert Shift:=xlToRight 
     i = i - 1 
    Loop 
End Sub 

첫 번째 그림은 세포가 매크로

두 번째는 세포가 매크로가

실행 된 경우 어떻게 보이는지 전에 모습입니다

Answer 1

이게 무슨 뜻 이니?

Sub Main() 
Application.ScreenUpdating = False 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row ' finding last row used 

    For i = lastRow To 1 Step -1 ' iterating from last row to 1st 
     difference = Range("B" & i) - Range("C" & i) ' calculating the difference 
     If difference < 0 Then ' if difference meets your criteria 
      For j = difference To -1 ' how many rows to insert 
       Rows(i).Copy ' copy the origin 
       Range("A" & i + 1).Insert Shift:=xlDown ' insert the copied row 
       Range("D" & i + 1) = Range("D" & i + 1) + Abs(j) ' increment column D 
      Next 
     End If 
    Next 

Application.CutCopyMode = False 
End Sub 

전에

나는 "B와 C"의 차이는 첫 번째 행은`10 것이다라고 이해