Hinzufügen einer Zeile zu Excel mit Makros aber nur wenn die Werte in Spalte ändern

Question

Wenn Spalte B Wochenzahlen enthält, sagen "1" in Zeilen 2-10, "2" in Zeilen 11-14, "3" in Zeilen 15 -50 usw. Wie kann ich bei jeder Änderung der Wochennummer eine Zeile hinzufügen?

Die Menge der Ereignisse für jede Woche Anzahl variiert und manchmal würde der Wert „5-6“

Answer 1

Dies wird jede Zelle in Spalte C überprüfen und festzustellen, ob der Wert aus der Zelle direkt über ihn unterscheidet. Wenn es anders ist, wird eine neue Zeile eingefügt. Ich bin mir nicht sicher, wie ich mit einer Zelle umgehen soll, die zwei Wochen hat, wie 5-6.

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