如何用Text to Column拆分货币符号与金额？实现金额留原列、符号移右列

文本分列向导没法直接实现你要的效果——它的逻辑是将原单元格内容拆分后替换到多个单元格，无法让金额留在原位置、货币符号移到右侧单元格。下面是几种可行的替代方法：

一、公式法（无需宏，适合新手） #

假设你的数据在A列，要把货币符号放到B列，金额留在A列：

1. 提取货币符号到B列：在B2单元格输入公式，下拉填充：

   =LEFT(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&"0123456789"))-1)
   

   这个公式会自动定位到第一个数字的位置，提取左边的所有货币符号/非数字字符。
2. 提取金额并替换原单元格：在C2单元格输入公式提取金额，下拉填充：

   =--RIGHT(A2,LEN(A2)-MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&"0123456789"))+1)
   

   选中C列的结果，复制后右键点击A列，选择「选择性粘贴」-「数值」，最后删除C列即可。

二、Power Query法（适合批量结构化处理） #

1. 选中数据列，点击「数据」选项卡→「从表格/区域」（Excel 2016及以后版本自带，旧版需安装Power Query插件）。
2. 在Power Query编辑器中：
   • 点击「添加列」→「自定义列」，输入公式提取货币符号：

     Text.BeforeDelimiter([列1], List.First(List.Select(Text.ToList([列1]), each Value.Is(Value.FromText(_), type number))))
     

   • 再添加一个自定义列提取金额：

     Number.From(Text.AfterDelimiter([列1], List.First(List.Select(Text.ToList([列1]), each Value.Is(Value.FromText(_), type number)))))
     

3. 右键删除原始数据列，将金额列重命名为原列名，调整列顺序后，点击「关闭并上载」，结果会自动导入Excel表格中。

三、VBA宏法（适合大量数据一键处理） #

1. 按Alt+F11打开VBA编辑器，右键点击左侧项目窗格→「插入」→「模块」。
2. 粘贴以下代码：

   Sub SplitCurrencyAndAmount()
       Dim rng As Range
       Dim cell As Range
       Dim firstNumPos As Integer
       
       Set rng = Application.InputBox("请选择需要处理的单元格区域", Type:=8)
       
       For Each cell In rng
           firstNumPos = 1
           Do While firstNumPos <= Len(cell.Value) And Not IsNumeric(Mid(cell.Value, firstNumPos, 1))
               firstNumPos = firstNumPos + 1
           Loop
           If firstNumPos > 1 Then
               cell.Offset(0, 1).Value = Left(cell.Value, firstNumPos - 1)
               cell.Value = Mid(cell.Value, firstNumPos)
           End If
       Next cell
   End Sub
   

3. 按F5运行宏，选择要处理的单元格区域，即可自动将货币符号移到右侧单元格，金额保留在原单元格。

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