napadá mě řešení makrem:
Sub počet()
Dim oblast, bunka As Range
Dim pocet As Byte
Set oblast = Range("A1:G50")
pocet = 0
For Each bunka In oblast
pocet = pocet + Len(bunka)
Next bunka
MsgBox pocet
End Sub
jako oblast si zvol bunky kde máš text
Sub počet()
Dim oblast, bunka As Range
Dim pocet As Byte
Set oblast = Range("A1:G50")
pocet = 0
For Each bunka In oblast
pocet = pocet + Len(bunka)
Next bunka
MsgBox pocet
End Sub
jako oblast si zvol bunky kde máš text
Příloha: 3724_pocet_znaku.rar (16kB, staženo 47x)
citovat