Excel'de bir hücredeki satır sonlarını nasıl sayarsınız?

İçerikler bir hücreye sığmıyorsa, genellikle içeriklerin hücre içinde tam olarak görüntülenebilmesi için satır sonu kullanırız, aşağıdaki ekran görüntüsünde gösterildiği gibi. Bir hücredeki satır sonlarının sayısını saymayı denediniz mi?

Bir hücredeki satır sonlarını formülle sayma

Bir hücredeki satır sonlarını VBA ile sayma

Bir hücredeki satır sonlarını formülle sayma

Bir hücredeki satır sonlarını saymak için bu formülü deneyebilirsiniz.

Satır sonlarını saymak istediğiniz metne bitişik bir hücre seçin ve yazın =LEN(A2)-LEN(SUBSTITUTE(A2,CHAR(10),"")), ve basın Enter tuşuna basın. Ekran görüntüsüne bakın:

Not:

1. Eğer Mac sistemiyle çalışıyorsanız, bu formülü deneyin =LEN(A2)-LEN(SUBSTITUTE(A2,CHAR(13),""))

2. Yukarıdaki formüller yalnızca manuel satır sonlarını sayar.

Bir hücredeki satır sonlarını VBA ile sayma

İşte Excel'deki bir hücredeki satır sonlarını da sayabilen bir VBA kodu.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın, kodu kopyalayıp Modül'e yapıştırın.

VBA: Manuel satır sonunu sayma

Public Sub CountLines()
'UpdatebyExtendoffice20171222
    Dim xStrLen As Double
    Dim xChrLen As Double
    With Range("A2")
        xStrLen = Len(.Text)
        xChrLen = Len(Replace(.Text, Chr(10), ""))
    End With
    MsgBox "There are " & xStrLen - xChrLen & " line breaks"
End

3. Tuşa basın F5 tuşuna basın, size satır sonlarının sayısını bildiren bir iletişim kutusu çıkacak.