我是:
- 使用 Excel
Clean
函数去除任何文本的所有格式,以及 - 然后我想将生成的长字符串分成不超过 80 个字符的单独行。
- 清理后唯一剩下的分隔符是空格。
下面的代码就像一个冠军,但它是残酷的;
代码
Sub TrimTo75()
myRow = 4
Range("C" & myRow).Select
myString = ActiveCell.Value
While myString <> ""
While Len(myString) > 75
mySubString = Left(myString, 75)
ActiveCell.Value = mySubString
myString = Right(myString, Len(myString) - 75)
myRow = myRow + 1
Range("C" & myRow).Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
If Len(myString) < 75 Then
ActiveCell.Value = myString
End If
Wend
myRow = myRow + 1
Range("C" & myRow).Select
myString = ActiveCell.Value
Wend
End Sub