Excel编辑技巧：无需拆分单元格，在单元格每行文本前添加'-'前缀

方案1：适用于Excel 365/2021及以上版本（公式实现，无需拆分单元格） #

直接使用公式即可单单元格完成处理，不需要拆分内容：

="-"&TEXTJOIN(CHAR(10)&"-",TRUE,TEXTSPLIT(A1,CHAR(10)))

• 说明：
  • CHAR(10)为Excel内部的换行符标识，TEXTSPLIT会先将单元格内的多行文本按换行符拆分为文本数组
  • TEXTJOIN会给每一段文本前拼接-，再用换行符重新组合为完整的多行文本写回单元格
  • 公式输入完成后，需要将目标单元格的「自动换行」功能开启，才能正常显示多行效果

方案2：适用于所有Excel版本（VBA宏实现，适合批量处理） #

如果使用旧版Excel没有TEXTSPLIT函数，或者需要批量处理大量单元格，可以用宏实现：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称，选择「插入-模块」
2. 将以下代码粘贴到模块编辑区：

Sub AddDashToEachLine()
    Dim cell As Range
    Dim lines() As String
    Dim i As Long
    
    '仅处理当前选中的单元格范围
    For Each cell In Selection
        If cell.Value <> "" Then
            '按换行符拆分单元格内容
            lines = Split(cell.Value, vbLf)
            '遍历每一行添加前缀
            For i = LBound(lines) To UBound(lines)
                lines(i) = "-" & lines(i)
            Next i
            '将处理后的内容写回原单元格
            cell.Value = Join(lines, vbLf)
            '自动开启单元格自动换行功能
            cell.WrapText = True
        End If
    Next cell
End Sub

3. 回到Excel界面，选中所有需要处理的单元格，按Alt+F8调出宏窗口，选择AddDashToEachLine点击运行即可，所有选中单元格内的每一行文本都会自动加上-前缀，无需拆分单元格。

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