首先，咱们来拆解你遇到的「Run-Time error '13': Type Mismatch」问题，主要有几个关键点需要修正：

核心问题分析 #

1. 公式分隔符不兼容：VBA中Formula属性默认使用美式逗号（,）作为参数分隔符，而你写的公式用了分号（;），如果你的Excel是中文/欧洲语言版本，应该用FormulaLocal属性来匹配本地分隔规则。
2. 变量类型与字符串拼接：如果Column、PosStartCalc这类变量不是字符串类型，直接拼接会导致类型不匹配；另外你代码里的空格冗余（比如分号前后的空格）也可能干扰语法。
3. 绝对引用缺失：你要的是Data!$C$8绝对引用，但原代码里写的是Data!C8，少了$符号。
4. 引号转义问题：VBA字符串里的双引号需要用两个双引号（""）来转义，原代码里的引号写法有语法瑕疵。

修正后的代码示例 #

假设你的Column是列字母（比如"C"），PosStartCalc、PosStart是数值类型的行号（比如4），下面两种写法都可以正常运行：

方法1：使用FormulaLocal（适配本地语言的分号分隔） #

' 先确保变量已正确赋值（示例）
Dim Column As String
Dim PosStartCalc As Long
Dim PosStart As Long
Column = "C"
PosStartCalc = 4
PosStart = 4

' 写入公式到目标单元格
Worksheets("Calculation").Range(Column & PosStartCalc + 1).FormulaLocal = _
    "=IF(" & Column & PosStartCalc & "=""-"",""-"",Cars!" & Column & PosStart & "*" & Column & PosStartCalc & "*Data!$C$8)"

方法2：使用Formula（美式逗号分隔） #

如果你习惯用标准美式公式语法，也可以用这个版本：

Worksheets("Calculation").Range(Column & PosStartCalc + 1).Formula = _
    "=IF(" & Column & PosStartCalc & "=""-"",""-"",Cars!" & Column & PosStart & "*" & Column & PosStartCalc & "*Data!$C$8)"

额外注意事项 #

• 确认PosStartCalc + 1是你要写入公式的目标行号（比如原C4的下一行C5），如果不是可以调整数值。
• 如果Column是数值类型（比如3代表C列），需要先转换成列字母，可以用Split(Cells(1, Column).Address, "$")(1)来转换，比如：

  Dim Column As Long
  Column = 3 ' 代表C列
  Dim ColLetter As String
  ColLetter = Split(Cells(1, Column).Address, "$")(1)
  ' 之后用ColLetter代替原来的Column变量拼接
  

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