@שמואל-ש
קוד מאקרו:
Dim ws As Worksheet
Dim lastRow As Long
Dim currentRow As Long
Dim columnNumber As Long
' הגדרת העמודה לפי מספר העמודה (1 = A, 2 = B, וכו')
columnNumber = 1
' הגדרת הגיליון שבו נרצה לפעול
Set ws = ThisWorkbook.Worksheets("Sheet1")
' הגדרת השורה האחרונה בעמודה
lastRow = 50
' עובר על כל התאים מהשורה האחרונה ולמעלה, תוך שימוש בקפיצות של -1
For currentRow = lastRow To 2 Step -1
' בדיקת האם שני התאים הסמוכים מכילים ערכים שונים
If ws.Cells(currentRow, columnNumber).Value <> ws.Cells(currentRow - 1, columnNumber).Value Then
' הוספת שורה חדשה בין התאים
ws.Rows(currentRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next currentRow
להגדרת השורה האחרונה בקובץ הכנס
ws.Cells(ws.Rows.Count, columnNumber).End(xlUp).Row