如何实现Excel粘贴文本自动格式化：删除段落空格并按指定字符数换行？

VBA宏方案（适合批量处理） #

直接用VBA写一个宏，一次性完成两个格式化需求，操作步骤如下：

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 右键点击当前工作簿，选择「插入」→「模块」
3. 粘贴以下代码，可根据需求修改charLimit的值（即你要指定的每行字符数）：

Sub FormatTextInCell()
    Dim targetCell As Range
    Dim originalText As String
    Dim cleanedText As String
    Dim formattedText As String
    Dim charLimit As Integer
    Dim i As Integer
    
    ' 设置每行最大字符数，按需修改
    charLimit = 50
    
    Set targetCell = Selection
    originalText = targetCell.Value
    
    ' 清除段落间的多余空行和连续空格
    cleanedText = Replace(originalText, vbCrLf & vbCrLf, vbCrLf)
    cleanedText = Replace(cleanedText, vbLf & vbLf, vbLf)
    cleanedText = Replace(cleanedText, "  ", " ")
    cleanedText = Trim(cleanedText)
    
    ' 按指定字符数拆分并插入换行
    formattedText = ""
    For i = 1 To Len(cleanedText) Step charLimit
        formattedText = formattedText & Mid(cleanedText, i, charLimit) & vbCrLf
    Next i
    formattedText = Left(formattedText, Len(formattedText) - 2)
    
    targetCell.Value = formattedText
    targetCell.WrapText = True
End Sub

4. 返回Excel，选中需要处理的单元格，按下Alt+F8，选择FormatTextInCell运行即可

公式方案（适合单单元格实时处理） #

如果不想用宏，可以用数组公式实现，假设原文本在A1，指定每行50字符，公式如下：

=TEXTJOIN(CHAR(10),TRUE,MID(SUBSTITUTE(SUBSTITUTE(A1,CHAR(10)&CHAR(10),CHAR(10)),"  "," "),ROW(INDIRECT("1:"&CEILING(LEN(SUBSTITUTE(SUBSTITUTE(A1,CHAR(10)&CHAR(10),CHAR(10)),"  "," "))/50,1)))*50-49,50))

• 公式先通过SUBSTITUTE清除段落间的连续空行和重复空格
• 再用MID按指定字符数拆分文本片段
• 最后用TEXTJOIN把片段用换行符拼接起来
• 旧版Excel需要按Ctrl+Shift+Enter作为数组公式执行，新版Excel直接回车即可
• 记得给单元格开启「自动换行」功能

内容的提问来源于stack exchange，提问作者SoFull OfClarity