[ÇÖZÜLDÜ] Verileri daha rahat takip etmek için boş satır eklemek hk.

[enteresan]

Arkadaşlar, elimde isimlerden oluşan bir liste var. A sütunu 1:100 arası tamamen isim. Bu isimler arasında benzer olan isimler var. Ben bunları başka bir sayfaya aktarmak ve aktarırken de aynı olan isimleri alt alta gelecek şekilde ve diğer isme geçmeden bir boş satır eklemek istiyorum. Yani 2 aynı isim 1 boş satır, 3 aynı isim 1 boş satır gibi. Bu konuda yardımcı olacak arkadaşlara teşekkür eder, saygılar sunarım.

 

[Ali]

Aşağıdaki kodları Sayfa1'deki bir butona bağlayıp deneyin.

Sub arala_aktar()
    Range("A1:A100").Select
    Selection.Copy
    Sheets("Sayfa2").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = totalrows To 2 Step -1
If Cells(Row, 1).Value <> Cells(Row - 1, 1).Value Then Rows(Row).Insert
Next Row
 
End Sub

 

[enteresan]

Teşekkür

fructose, ALLAH razı olsun. Hızır gibisiniz.....