excel varsa
not defterindekini tümünü seç ile seç ctrl+c kopyala
excelin a1 hücresine gel ctrl+v ile yapıştır.
alt+F11 kombinasyonunu kullan
çıkan pencerede menülerden ingilizcede
insert->module
türkçede
ekle->modül
seç karşına beyaz bir ekran gelecek bunları oraya yapıştır.
sub (ati)
k=inputbox("satır sayısını gir")
for i = 1 to k
range("A" & i) = trim(range("A" & i))
next i
end sub
bunları yapıştırdıktan sonra F5 e bas senden satır sayısını isticek oraya excele yapıştırdığında olan satır sayısını gir veya 10000 diye büyük bi sayı at
açık olan ekranı kapa excele geri dönersin işlemler tamam olmuş olur zaten
kopyalayıp not defterine geri yapıştırırsın
kodları denemedim excel yok makinemde ama çalışır hata verirse yazarsın. ok