VBA宏未处理单元格格式及特定数据转换异常求助

问题根源 #

原宏存在两个核心缺陷：

1. 纯内容单元格无格式：格式设置代码被嵌套在「单元格内容含两个空格分隔项」的分支中，当单元格仅输入纯数字、纯字母等单一项内容时，完全跳过格式设置，导致数字默认右对齐、文字不居中。
2. 短数字+m格式无法转换：原代码仅匹配3位数字+m/M（固定长度4）的格式，像1m、12m这类短长度的数字+m内容无法触发交换逻辑，覆盖范围过窄。

修改后的VBA代码 #

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim rng As Range, v As Variant
    
    For Each rng In Target
        ' 清理首尾及多余内部空格
        rng = WorksheetFunction.Trim(rng)
        v = Split(rng, " ")
        
        ' 处理数据转换：仅当数字+m/M在第一个位置时，交换到右侧
        If UBound(v) = 1 Then
            ' 匹配任意长度数字+m/M的格式，不限制位数
            If UCase(Right(v(0), 1)) = "M" And IsNumeric(Left(v(0), Len(v(0)) - 1)) Then
                rng = Trim(v(1) & " " & v(0))
            End If
        End If
        
        ' 全局应用格式：所有A列修改的单元格都生效
        With rng
            .NumberFormat = "@" ' 设置为文本格式，避免数字自动对齐
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
        With rng.Font
            .Name = "Calibri"
            .Size = 11
        End With
    Next rng

    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

关键修改说明 #

1. 全局格式生效：将格式设置代码（对齐方式、字体、文本格式）移出分支判断，确保所有修改的A列单元格（包括纯数字、纯字母、单内容项）都能应用统一格式。
2. 宽松的格式匹配：移除原代码中Len(v(0))=4的长度限制，通过Left(v(0), Len(v(0)) - 1)提取数字部分，匹配任意长度的数字+m/M格式（如1m、12m、280M均可触发转换）。
3. 保留原需求逻辑：仅当数字+m/M在第一个位置时交换到右侧，若已在右侧则保持不变，完全符合示例中的转换效果。

验证效果 #

• 纯数字333：自动设置为文本格式，居中对齐，字体为Calibri 11号。
• 纯字母hnm：同样应用居中对齐和指定字体。
• 短数字+m格式1m hnm：转换为hnm 1m；12m test转换为test 12m。
• 原示例输入500m FMA：正确转换为FMA 500m，L3 280M保持不变。

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