Excel VBA：If/Then循环实现ID掩码时相邻单元格无内容问题排查

原问题核心 #

需要为两列关联费用的文本类型ID添加****-*+ID后三位的掩码格式，原代码运行后目标单元格无内容，后续针对D列特殊值（空值、"Same as Enrolled Account"）修改的代码片段也无执行效果。

原代码错误点分析 #

1. 公式引用错误：原代码中公式直接使用VBA变量rcell/rcell2，Excel公式无法识别该变量，需替换为单元格地址引用。
2. 单元格偏移语法错误：rcell(0,1)是错误的偏移写法，正确的横向偏移应使用Offset(0,1)（0行1列偏移）。
3. 未处理特殊值：原代码未对"Same as Enrolled Account"这类特殊值做跳过处理。

修正后的完整代码 #

Sub Mask_Account()
    Dim Sh As Worksheet
    Set Sh = ThisWorkbook.Sheets("Fee Letter Formatted")
    
    ' 在C、F列插入新列（原B、D列右侧）
    Sh.Columns(3).EntireColumn.Insert
    Sh.Columns(6).EntireColumn.Insert
    
    Dim rcell As Range, rng As Range
    ' 处理原B列（对应新C列）
    Set rng = Sh.Range("B6:B200")
    For Each rcell In rng.Cells
        If Not IsError(rcell.Value) Then
            Select Case rcell.Value
                Case "", "Same as Enrolled Account"
                    ' 空值和特殊值保持原样
                    rcell.Offset(0, 1).Value = rcell.Value
                Case Else
                    ' 生成掩码公式，引用原单元格地址
                    rcell.Offset(0, 1).Formula = "=""****-*"" & RIGHT(" & rcell.Address & ",3)"
            End Select
        End If
    Next rcell
    
    ' 处理原D列（对应新F列）
    Dim rcell2 As Range, rng2 As Range
    Set rng2 = Sh.Range("D6:D200")
    For Each rcell2 In rng2.Cells
        If Not IsError(rcell2.Value) Then
            Select Case rcell2.Value
                Case "", "Same as Enrolled Account"
                    rcell2.Offset(0, 1).Value = rcell2.Value
                Case Else
                    rcell2.Offset(0, 1).Formula = "=""****-*"" & RIGHT(" & rcell2.Address & ",3)"
            End Select
        End If
    Next rcell2
    
    ' 如需删除原B、D列，取消注释下面一行
    ' Sh.Range("B:D").EntireColumn.Delete
End Sub

修改后代码片段的问题分析 #

你提供的数组处理片段存在两个关键错误：

1. 条件逻辑顺序颠倒：先判断<> "Same as Enrolled Account"就直接赋值，后续的ElseIf永远无法触发，导致正常ID的掩码逻辑根本不会执行。
2. 数组赋值方式错误：数组中直接赋值公式字符串（"=""****-*""&right(..."）无法生效，若用数组处理，应直接计算出掩码结果而非公式文本，示例修正：

' 假设dArr是从D列读取的数组，处理后写入新列
For i = LBound(dArr, 1) To UBound(dArr, 1)
    If Not IsError(dArr(i, 1)) Then
        Select Case dArr(i, 1)
            Case "", "Same as Enrolled Account", " "
                ' 保留原内容
                newArr(i, 1) = dArr(i, 1)
            Case Else
                ' 直接计算掩码结果
                newArr(i, 1) = "****-*" & Right(dArr(i, 1), 3)
        End Select
    End If
Next i
' 将newArr写入目标列
Sh.Range("F6").Resize(UBound(newArr, 1), 1).Value = newArr

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