Veri gruplama

[dmyksl]

arkadaşlar ekteki gibi 2000 satırlık tablom var. Sayfa 2 deki gibi her sınıf değişiminde 6 satır boşluk nasıl eklerim acaba

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod'u sayfanın kod bölümüne yapıştırıp, çalıştırın.
(alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde karşınıza gelecek ekranın sağ tarafındaki boş alana)

[B]Sub SATIREKLE_BARAN()[/B]
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual[SIZE="1"]

[/SIZE]For a = [A65536].End(3).Row To 2 Step -1
        If Cells(a, 1) <> "" And Cells(a - 1, 1) <> "" And Cells(a, 1) <> Cells(a - 1, 1) Then
            Rows(a & ":" & a + 5).Insert Shift:=xlDown
        End If
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True[SIZE="1"]

[/SIZE][B]End Sub[/B]