Count characters vba

[brans1982]

Hi,

I'm trying to count the charaters in a range.

I've tried...

Len(Range("B1:B10").Value)

and

Range("B1:B10").Charaters.Count

Any suggestions.

Thanks!

 

[njimack]

Not sure if you can do that in a single line of code. This should work:

Sub a()
Dim Count
Dim i As Long

For i = 1 To 10
    Count = Count + Len(Cells(i, 2))
Next i

End Sub

 

[VoG]

Perhaps like this

kount = 0
For i = 1 To 10
    kount = kount + Len(Range("B" & i).Value)
Next i

 

[shg]

Another way:

Sub x()
    MsgBox Evaluate("sum(len(B1:B10))")
End Sub

 

[PA HS Teacher]

How about:

<font face=Courier New><SPAN style="color:#00007F">Public</SPAN> <SPAN style="color:#00007F">Function</SPAN> NumChars(Rng <SPAN style="color:#00007F">As</SPAN> Range) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>   <SPAN style="color:#00007F">Dim</SPAN> C <SPAN style="color:#00007F">As</SPAN> Range<br>   <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> C <SPAN style="color:#00007F">In</SPAN> Rng.Cells<br>      NumChars = NumChars + Len(C.Value)<br>   <SPAN style="color:#00007F">Next</SPAN> C<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Function</SPAN></FONT>

 

[brans1982]

Hi,

All post are a great help.

Regards and Thanks,

Conor.