Excel'de her satıra 16 boşluk nasıl eklenir?

[Reisi]

Arkadaşlar 18 bine yakın veri var ve her birine elle 16 tane boşluk eklemek çok zor bunları nasıl tek tıkla 16 boşluk ekleyebilirim?

 

[Ömer]

Merhaba,

Boşluktan kastınız nedir. Her satırdaki verinin sonuna 16 karakter boşluk mu?

 

[Reisi]

Merhaba,

Boşluktan kastınız nedir. Her satırdaki verinin sonuna 16 karakter boşluk mu?

evet onun gibi bişey

 

[Ömer]

Deneyiniz.

Sub test()

    Dim son As Long, i As Long, dizi As Variant

    son = Cells(Rows.Count, "A").End(xlUp).Row

    dizi = Range("A1:A" & son).Value
    
    For i = LBound(dizi) To UBound(dizi)
        dizi(i, 1) = Trim(dizi(i, 1)) & WorksheetFunction.Rept(" ", 16)
    Next i
    
    Range("A:A") = ""
    Range("A1").Resize(son, 1) = dizi

End Sub

 

[Reisi]

tamamdır sağolun hocam