嘿，我完全懂你这种头疼的情况——把挤在一个单元格里的多行地址拆成单独列用来做邮件合并，结果Text to Columns因为那些换行符卡壳了对吧？别担心，这儿有几个靠谱的解决办法帮你搞定：

• 修改文本分列的分隔符设置（最直接的原生方法）
  其实Text to Columns是能识别换行符的，只是默认没启用这个选项，步骤很简单：

  1. 选中所有需要处理的地址单元格
  2. 打开「数据」选项卡，点击「分列」
  3. 第一步选择「分隔符号」，点击下一步
  4. 分隔符号区域里，勾选「其他」，然后按住Alt键，在输入框里敲击小键盘的1和0（也就是Alt+10，这是Excel里换行符的对应代码）
  5. 点击下一步，按需设置目标单元格区域和数据格式，最后完成即可。这样就能把每行地址精准拆分到相邻的独立单元格中。

• 用公式拆分（适合快速临时处理）
  假设你的地址数据在A列，要提取不同行的内容可以用以下公式（TRIM是用来清除多余空格的，CHAR(10)代表单元格内的换行符）：

  • 提取第一行（街道地址）：=TRIM(LEFT(SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1))),LEN(A1)))
  • 提取第二行（城市）：=TRIM(MID(SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1))),LEN(A1)+1,LEN(A1)))
  • 提取第三行（邮编）：=TRIM(MID(SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1))),2*LEN(A1)+1,LEN(A1)))
    以此类推，把公式里的2*换成对应行数的倍数即可，然后下拉填充公式就行。

• 用Power Query处理（适合大量数据批量操作）
  如果你的地址数据量很大，用Power Query能一次性高效完成拆分：

  1. 选中数据区域，打开「数据」选项卡，点击「从表格/区域」（如果提示创建表，记得勾选「我的表格有标题」）
  2. 进入Power Query编辑器后，选中地址列，点击「转换」选项卡 → 「拆分列」→ 「按分隔符」
  3. 分隔符选择「自定义」，输入#(lf)（这是Power Query中换行符的代码），然后选择「拆分为列」，按分隔符出现的次数拆分
  4. 处理完成后，点击「关闭并上载」，就能得到拆分好的表格，后续如果有新数据还能直接刷新更新。

• VBA宏（适合频繁重复操作的场景）
  如果你经常需要处理这类多行单元格拆分的需求，可以写个简单的宏来一键完成：

  Sub SplitMultiLineCells()
      Dim rng As Range
      Dim cell As Range
      Dim splitVals As Variant
      Dim i As Integer
      
      Set rng = Application.Selection
      
      For Each cell In rng
          splitVals = Split(cell.Value, vbLf)
          For i = LBound(splitVals) To UBound(splitVals)
              cell.Offset(0, i + 1).Value = Trim(splitVals(i))
          Next i
      Next cell
  End Sub
  

  使用方法：按Alt+F11打开VBA编辑器，插入一个新模块，粘贴这段代码，回到Excel选中要处理的单元格，按Alt+F8运行这个宏就搞定了。

备注：内容来源于stack exchange，提问作者SkyGuy15