我帮你梳理下问题所在，以及具体的修复步骤：

核心错误原因 #

你的VBA代码主要栽在字符串转义错误、参数误用和括号不匹配上，具体来说：

1. 引号转义问题：在VBA里，字符串中的双引号必须用两个双引号（""）来转义，你直接用单个双引号会导致字符串提前截断，触发语法错误。
2. Operator参数滥用：xlBetween是给数值范围验证用的（比如要求值在A和B之间），自定义验证不需要这个参数，保留它会因为缺少Formula2而报错。
3. 变量名冲突：你声明了Dim Range As String，但Range是Excel内置的对象名，这么写会导致编译冲突，而且这个变量你根本没用到，完全可以删掉。
4. 公式括号不完整：原代码里的Formula1字符串拼接时，把公式拆成了零散的片段，导致括号和逻辑结构混乱。

修复后的完整VBA代码 #

Public Sub Class_Initialize()
    ' 先清除目标单元格已有的数据验证，避免重复添加报错
    Range("E5").Validation.Delete
    
    With Range("E5").Validation
        .Add Type:=xlValidateCustom, _
             AlertStyle:=xlValidAlertStop, _
             Formula1:="=IF(B3="""",TRUE,IF(ISERROR(SUMPRODUCT(SEARCH(MID(B3,ROW(INDIRECT("""15:""&LEN(B3)""")),15),""0123456789abcdefghijklmnopqrstuvwxyz""))),FALSE,TRUE))"
        .InputTitle = "有效输入要求"
        .ErrorTitle = "输入无效"
        .InputMessage = "请输入符合要求的值：若B3为空则直接通过；若B3不为空，从第15位开始的子串必须仅包含字母或数字"
        .ErrorMessage = "从第15位开始的内容只能包含字母和数字，请修正输入后重试。"
    End With
End Sub

关键修复点解释 #

• 正确转义引号：把原公式里的所有单个双引号替换成两个，比如B3=""变成B3=""""，INDIRECT("15:"&LEN(B3))变成INDIRECT("""15:""&LEN(B3)""")，确保整个公式作为一个完整的字符串传递给Formula1。
• 移除多余参数：删掉了Operator:=xlBetween，因为自定义验证不需要这个参数。
• 添加验证清除逻辑：先调用.Delete清除已有验证，避免重复添加时抛出错误。
• 修正提示信息：把原有的提示信息改成和你的验证逻辑匹配的内容，当然你可以根据自己的需求修改。

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