매크로를 사용하여 Excel에 행 추가하기 (열의 값이 변경 될 때만)

Question

열 B에 주 번호가 들어 있으면 행 2-10에서 "1", 행 11-14에서 "2", 행 15에서 "3" -50 등. 주 번호가 변경 될 때마다 어떻게 행을 추가 할 수 있습니까?

매주 번호 발생의 양은 다양하고 때로는 값은 "5-6"

Answer 1

이것은 컬럼 C의 각 셀을 확인 값이 바로 위의 셀 다르면 결정할 것이다. 다른 경우 새로운 행이 삽입됩니다. 나는 5-6과 같이 2 주를 가진 세포를 다루는 방법을 잘 모릅니다.

Sub tester() 
Dim lastRow As Long, testString As String 


    lastRow = ActiveSheet.Range("C65536").End(xlUp).Row 
    testString = ActiveSheet.Range("C1").Value 

    For i = 2 To lastRow 
     If ActiveSheet.Range("C" & i).Value <> testString Then 
      Rows(i).Insert Shift:=xlUp 
      testString = ActiveSheet.Range("C" & i + 1).Value 
     End If 
    Next i 


End Sub