Word de tüm kelimeleri satır satır ayırmak...

[alibilici83]

Word de vize ödevim de uzun bir metin de ne kadar kelime varsa hepsini satır satır ayırmam gerekiyor. Daha sonra da her kelimeden kaç adet yazdığını rakamla yanına yazmam gerekiyor. tüm kelimeler arasında enter yaparsam 5 güne bitmez. Lütfen acilen yarıdm. şimdiden çok teşekkürler...

 

[tahsinanarat]

Metinde ne kadar kelime varsa excel de a1 hücresine yapıştırıp aşağıdaki kodu çalıştırınız;

Sub Ayir()
c = Sheets(2).Cells(65530, 1).End(xlUp).Row + 1
For a = 1 To Len(Cells(1, 1).Value)
If Mid(Cells(1, 1).Value, a, 1) <> " " Then
Sheets(2).Cells(c, 1) = Sheets(2).Cells(c, 1) & Mid(Cells(1, 1).Value, a, 1)
Else
c = c + 1
End If
Next
Sheets(2).Select
End Sub

Adetlerini saymak için ise
=EĞERSAY($A$1:$A$9999;A2) formülünü kullunınız.

 

[alibilici83]

çok teşekkürler fakat olmadı. beceremedim galiba. ctrl+H tuşu ile ilk seçeneğe boşluk tuşunu atıyorum fakat 2.seçeneğe enter tuşunu atayamıyorum. yapabilsem tüm boşluklar enter a dönüşecek ve kelimeler ayrılacak. sonra alafabetik olarak dizebileceğim kelimeleri... lütfen acil yardım...

 

[leumruk]

Merhaba,
Ctrl H ile Değiştir menüsünü açın Bul kısmına boşluk karakteri Değiştir kısmına ^p yazın. Sonrasında tümünü değiştir yazın. Tüm kelimeler satır satır ayrılacaktır.