Cells.Formula处理空字符串失效，请求排查下述VBA代码问题

你的代码主要有三个问题导致Cells.Formula无法正常处理空字符串，以下是详细解析和修复后的代码：

1. 公式参数分隔符使用错误 #

VBA的Formula属性要求公式使用**美式逗号（,）**作为函数参数的分隔符，而你用了分号（;）。分号是部分地区Excel界面的本地分隔符，但VBA层面默认使用逗号。如果偏好使用分号，你需要改用FormulaLocal属性来适配本地设置。

2. 空字符串的双引号转义错误 #

在VBA字符串中，要表示公式里的空字符串（""），需要用**四个双引号（""""）**来转义：

• 公式里的1个双引号 → 在VBA字符串中写成2个双引号
• 公式里的空字符串（2个双引号） → 在VBA字符串中写成4个双引号

你当前写的A5="""会被解析成公式里的A5="，这是不完整的条件，直接导致公式语法错误。

3. 工作表引用的引号类型错误 #

引用带空格的工作表（比如AssemblyTime）时，Excel要求用**单引号（'）**括起工作表名，而你用了双引号。这会让Excel把"AssemblyTime"当成普通字符串，而非工作表引用，引发引用错误。

修复后的代码（两种可选方案） #

方案1：使用Formula属性（美式逗号分隔） #

同时去掉不必要的Select和Selection操作（直接赋值更高效）：

Cells(j, LastColumn + 2).Formula = "=IF(A5="""""", IF(B5="""""", 0, Sheet1!D4), IF('AssemblyTime'!B5=""X"", 1, Sheet1!C4))"

方案2：使用FormulaLocal属性（本地分号分隔） #

如果你的Excel默认用分号作为参数分隔符，可以用这个属性，转义规则和工作表引用的注意点和上面一致：

Cells(j, LastColumn + 2).FormulaLocal = "=IF(A5="""""";IF(B5="""""";0;Sheet1!D4);IF('AssemblyTime'!B5=""X"";1;Sheet1!C4))"

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