Excel VBA宏失效排查及格式设置咨询：重复项与唯一值格式化、科学计数法禁用

嘿，我来帮你把这个问题捋清楚，一步步解决宏失效和格式设置的问题！

一、你的宏为啥没生效？ #

你的EnforceFormat是个普通的子程序，但它有两个关键问题：

• 没有自动触发机制：它不会在工作表内容变化（比如粘贴操作）时自动运行，得你手动去执行才会生效，这就没法实时维护格式了。
• 重复添加规则：每次运行宏都会新增一套条件格式规则，时间长了会堆积大量重复规则，不仅占资源，还可能导致格式混乱。

二、修正后的完整代码（含自动触发、科学计数法禁用、字体指定） #

首先，你需要把代码放到目标工作表的模块里（不是标准模块），这样才能利用工作表的变更事件自动触发。下面是修正后的代码，我加了详细注释：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当工作表内容变化时自动执行格式强制设置
    EnforceFormat
End Sub

Sub EnforceFormat()
    Dim EnforcedRange As Range
    ' 设置目标范围：B2到B列最后一行（比固定到1048576更灵活）
    Set EnforcedRange = Me.Range("B2:B" & Me.Cells(Me.Rows.Count, "B").End(xlUp).Row)
    
    ' 先清除目标区域已有的条件格式规则，避免重复添加
    EnforcedRange.FormatConditions.Delete
    
    ' --- 第一步：禁用科学计数法，设置单元格基础格式 ---
    ' 推荐用文本格式（"@"），因为ID是标识，不需要计算，还能保留前导零（如果有的话）
    ' 如果不需要前导零，也可以用数字格式 "0"
    EnforcedRange.NumberFormat = "@"
    ' 指定默认字体（这里用Arial做例子，你可以改成需要的字体）
    EnforcedRange.Font.Name = "Arial"
    EnforcedRange.Font.Size = 15
    EnforcedRange.Font.Color = RGB(0, 0, 0)
    EnforcedRange.Font.Bold = False
    
    ' --- 第二步：添加重复项的条件格式规则 ---
    Dim DupeRule As UniqueValues
    Set DupeRule = EnforcedRange.FormatConditions.AddUniqueValues
    DupeRule.DupeUnique = xlDuplicate
    ' 设置重复项的字体样式：红色、加粗、17号
    DupeRule.Font.Color = RGB(255, 0, 0)
    DupeRule.Font.Bold = True
    DupeRule.Font.Size = 17
End Sub

三、关键知识点解释 #

1. 自动触发的实现：
   Worksheet_Change是工作表的内置事件，只要工作表里的单元格内容被修改（包括粘贴操作），就会自动调用EnforceFormat子程序，实时维护格式。

2. 禁用科学计数法的两种方式：

   • 文本格式（"@"）：适合作为ID使用，不会改变数字的显示，还能保留前导零，避免Excel自动转换格式。
   • 数字格式（"0"）：如果ID是纯数字且不需要前导零，用这个格式也能防止科学计数法，但Excel会把它当作数字处理。

3. 避免重复规则：
   每次执行EnforceFormat时先调用EnforcedRange.FormatConditions.Delete，清除目标区域的旧规则，再重新添加新规则，这样就不会堆积无效规则了。

4. 灵活的范围设置：
   我把固定的B2:B1048576改成了B2:B" & Me.Cells(Me.Rows.Count, "B").End(xlUp).Row，这样只会处理B列有内容的行，不会浪费资源处理空行。

四、操作步骤 #

1. 打开Excel，按下Alt+F11打开VBA编辑器。
2. 在左侧的「工程资源管理器」里找到你要设置的工作表（比如Sheet1），双击它打开代码窗口。
3. 把上面的代码粘贴到代码窗口里。
4. 回到Excel工作表，测试粘贴操作——现在粘贴内容后，格式应该会自动生效，重复ID会变成红色加粗，长数字也不会变成科学计数法了。

备注：内容来源于stack exchange，提问作者ccwv4372