Excel脚本需求：提取单元格末尾数字并移至开头

嘿，这个需求我之前帮同事处理过，刚好有两个靠谱的方案，看你更倾向哪种：

方案1：用Excel公式快速处理（无需代码） #

如果数据量不算特别大，直接用公式就能搞定。假设你的地址在A列，在B1单元格输入以下公式，然后下拉填充即可：

=IFERROR(LOOKUP(9^9,--RIGHT(A1,ROW($1:$20)))&" "&LEFT(A1,LEN(A1)-LEN(LOOKUP(9^9,--RIGHT(A1,ROW($1:$20))))),A1)

公式说明： #

• LOOKUP(9^9,--RIGHT(A1,ROW($1:$20)))：从单元格末尾开始提取连续的数字（最多支持20位，足够应对大部分门牌号）
• LEFT(A1,LEN(A1)-LEN(...))：提取去掉末尾门牌号后的地址主体
• IFERROR(...,A1)：如果单元格没有数字，直接返回原内容，避免报错

方案2：VBA脚本批量处理（适合大量数据） #

如果你的数据有成百上千行，用VBA宏批量处理更高效。步骤如下：

1. 打开你的Excel文件，按下 Alt + F11 打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 将以下代码粘贴到模块中：

Sub MoveHouseNumberToStart()
    Dim cell As Range
    Dim addressText As String
    Dim houseNumber As String
    Dim i As Integer
    
    ' 遍历你选中的所有单元格
    For Each cell In Selection
        addressText = Trim(cell.Value)
        houseNumber = ""
        
        ' 从地址末尾往前逐个字符检查，提取连续数字
        For i = Len(addressText) To 1 Step -1
            If IsNumeric(Mid(addressText, i, 1)) Then
                houseNumber = Mid(addressText, i, 1) & houseNumber
            Else
                ' 碰到非数字字符就停止提取
                Exit For
            End If
        Next i
        
        ' 如果提取到了门牌号，重新拼接地址
        If houseNumber <> "" Then
            cell.Value = houseNumber & " " & Trim(Left(addressText, Len(addressText) - Len(houseNumber)))
        End If
    Next cell
    
    MsgBox "门牌号已全部调整到地址开头！", vbInformation
End Sub

4. 回到Excel界面，选中需要处理的地址列（或单元格区域）
5. 按下 Alt + F8，选择 MoveHouseNumberToStart 并点击「执行」

脚本说明： #

• 自动忽略单元格前后的空格，避免影响提取
• 只提取地址末尾的连续数字作为门牌号
• 如果单元格没有数字，保持原内容不变
• 处理完成后会弹出提示框告知结果

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