DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
evet onun gibi bişeyMerhaba,
Boşluktan kastınız nedir. Her satırdaki verinin sonuna 16 karakter boşluk mu?
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