boşluk doldurma

[ubyz1]

merhaba

ekteki dosyada a ile b arasına "a" , b ile c arasına "b" şeklinde boşlukları doldurmanın kolay bir yolu var mı?

 

[halit3]

böyle bir şeymi istiyorsunuz

 

[leumruk]

Selamlar,
Aşağıdaki kodu bir modüle kopyalayıp deneyiniz.

Sub Bosluk()
For i = 1 To [a65536].End(3).Row Step 3
Cells(i, "a").Offset(2, 0) = Cells(i, "a")
Cells(i, "a").Offset(1, 0) = Cells(i, "a")
Next i
End Sub

 

[uzmanamele]

merhaba
A1:A25 aralığını seçin, f5 / özel / boşluklar
=A1 yazıp ctrl+enter

 

[ubyz1]

böyle bir şeymi istiyorsunuz

evet aynen böyle

 

[ubyz1]

merhaba
A1:A25 aralığını seçin, f5 / özel / boşluklar
=A1 yazıp ctrl+enter

saolun hocam tam istediğim oldu