먼저 데이터입니다.셀 값을 기준으로 행을 삽입하는 Excel VBA 루프
A B
Type 15 5
Type 2 7
Type 3 9
는 제가 아래의 코드를 발견
B.
의 셀 값에 기초하여 행 번호 B1에서 시작하여 삽입하는 루프를 생성 할 필요가 있지만, 반복하지 않고, 내가 첫 번째 셀 (5) + 1의 결과가되도록 다음 셀을 확인해야 올바른 순서가됩니다.**
**
A B
Type 1 5
Type 2 7
Type 3 9
etc.
감사합니다!
나는 처음부터 질문을 엉망으로 만들었지 만 답변을 찾았습니다.
아래를 참조하십시오. 하위
Sub InsertRowsIf()
Dim lr As Long, R As Range, i As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
Set R = Range("B1", "B" & lr)
Application.ScreenUpdating = False
For i = R.Rows.Count To 1 Step -1
If IsNumeric(R.Cells(i, 1).Value) And Not IsEmpty(R.Cells(i, 1)) Then
R.Cells(i, 1).Offset(1, 0).Resize(R.Cells(i, 1).Value).EntireRow.Insert
End If
Next i
Application.ScreenUpdating 사용 = 진정한 끝
코드는 어디에 있습니까? – Fairy
당신이 언급 한 코드를 볼 수 없습니다. 또한 열 A가 '형식'과 1,2,3 등으로 시작하는 값을 가질 경우 단순히 수식을 사용할 수있는 VBA를 사용해야하는 이유는 무엇입니까? – ManishChristian
입력 내용과 결과를 화면 캡처하여 정확히 무엇을 의미하는지 분명히하십시오. 코드에 관해서는 다시 볼 필요가 없다고 생각합니다. – Masoud