Excel VBA自定义格式无法覆盖单元格数据问题排查

你的代码问题出在两个核心点：

1. NumberFormat仅修改显示格式，不改动实际数据：这个属性只是让单元格按指定规则显示内容，但单元格里的原始ID完全没变——别人双击单元格就能看到完整信息，等于没做掩码。
2. 格式规则对文本类型数据无效：你的ID带连字符，大概率是文本格式（比如输入时自动识别为文本，或手动设置了文本格式），而NumberFormat是针对数字类型的规则，对文本完全不起作用，所以看起来数据毫无变化。

正确的VBA代码（真正修改数据） #

下面的代码会遍历目标单元格，直接修改单元格的实际值，把ID前缀替换成掩码，保留连字符后的指定内容：

写法1：固定保留连字符后3位（匹配你举的***-111例子） #

Sub Mask_Account()
    Dim Sh As Worksheet
    Dim cell As Range
    Dim originalText As String
    Dim hyphenPos As Integer
    
    Set Sh = ThisWorkbook.Sheets("Fee Letter Formatted")
    
    '处理B列
    For Each cell In Sh.Range("B1:B200")
        originalText = Trim(cell.Value)
        hyphenPos = InStr(originalText, "-")
        '判断是否有连字符，且连字符后至少有3位
        If hyphenPos > 0 And Len(originalText) >= hyphenPos + 3 Then
            cell.Value = "***-" & Right(originalText, 3)
        End If
    Next cell
    
    '处理D列
    For Each cell In Sh.Range("D1:D200")
        originalText = Trim(cell.Value)
        hyphenPos = InStr(originalText, "-")
        If hyphenPos > 0 And Len(originalText) >= hyphenPos + 3 Then
            cell.Value = "****-" & Right(originalText, 3)
        End If
    Next cell
End Sub

写法2：通用适配（前缀替换为等长掩码，比如1111-1111→****-1111） #

如果你的ID前缀长度不固定，用这个写法更灵活：

Sub Mask_Account_Universal()
    Dim Sh As Worksheet
    Dim cell As Range
    Dim originalText As String
    Dim hyphenPos As Integer
    Dim prefixMask As String
    
    Set Sh = ThisWorkbook.Sheets("Fee Letter Formatted")
    
    '处理B列
    For Each cell In Sh.Range("B1:B200")
        originalText = Trim(cell.Value)
        hyphenPos = InStr(originalText, "-")
        If hyphenPos > 0 Then
            '生成和前缀等长的*
            prefixMask = String(Len(Left(originalText, hyphenPos - 1)), "*")
            cell.Value = prefixMask & Mid(originalText, hyphenPos)
        End If
    Next cell
    
    '处理D列
    For Each cell In Sh.Range("D1:D200")
        originalText = Trim(cell.Value)
        hyphenPos = InStr(originalText, "-")
        If hyphenPos > 0 Then
            prefixMask = String(Len(Left(originalText, hyphenPos - 1)), "*")
            cell.Value = prefixMask & Mid(originalText, hyphenPos)
        End If
    Next cell
End Sub

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