Macro For Excel Text Limit & Conditional Formatting Formula

[xstream]

As excel has a 32,767 characters limit for per cell when applying wrap text. I am facing issue identifying the ones (out of tons of data) of which has exceeded the character limit.

Is there a Marco script that will allow the following to be done?
1) When cell text exceeded 32,767 characters, create new row below and merge the cells together. If still unable to display all characters in merge cell, then create a new row and merge them again until all characters (text) is displayed in that cell.


As for conditional formatting, what is the formula to highlight cells that is more than 32,767 characters.

Thank you

 

[Logit]

.
.

=LEN(E3)>6

...Change Cell reference and characters number as needed.
.

.
.
Untested :vba - Remove / overcome / exceed / overtake maximum characters limit of Excel cell - Stack Overflow
.

<tbody>
[TD="class: votecell"]

​

[/TD]
[TD="class: answercell"]Thanks to Darren (see comments above) the best and safest solution is to split the string into different cells.
The following code splits the string into parts with lenght < 32,000 characters. It add the parts to an array and then it writes the parts to the needed number of adjacent cells:
<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; white-space: inherit;"> iRow = ws . Cells ( Rows . Count , 1 ). End ( xlUp ). Offset ( 1 , 0 ). Row
col = 1

' Get string from txtEncodedImage text input
sArray = SplitStr ( txtEncodedImage . Value , 32000 )

For i = LBound ( sArray ) To UBound ( sArray )
ws . Cells ( iRow , col + i ). Value = sArray ( i )
Next i


Public Function SplitStr ( ByVal str As String , ByVal numOfCharacters As Long ) As String ()
Dim sArray () As String
Dim nCount As Long
Dim c As Long
c = Len ( str ) \ numOfCharacters
If c * numOfCharacters = Len ( str ) Then
ReDim sArray ( 1 To c )
Else
ReDim sArray ( 1 To c + 1 )
End If
For c = 1 To Len ( str ) Step numOfCharacters
nCount = nCount + 1
sArray ( nCount ) = Mid ( str , c , numOfCharacters )
Next
SplitStr = sArray
End Function </code>[/TD]

</tbody>