如何在VBA中处理双引号？单元格赋值报错问题求助

原代码存在两个核心问题：

1. 变量声明不规范：Dim Var2, Str As String 仅将Str声明为字符串类型，Var2是变体类型，且未声明Var1，不符合VBA的变量声明规范。
2. 字符串拼接语法错误：Str="Employee":Var2,"Type":Var1 是错误的赋值方式，VBA中字符串拼接需用&运算符，同时要手动添加所需的引号、逗号等标点。

修正后的代码 #

如果直接生成固定目标字符串，可用：

Dim Var1 As String, Var2 As String, Str As String
Var1 = "OD"
Var2 = "Leave"
Str = """Employee"":""Leave"",""Type"":""OD"""
Set ws = ActiveWorkbook.Worksheets("Sheet1")
ws.Cells(2, 4).Value = Str

如果需要通过变量动态拼接（适配变量值变化的场景），可用：

Dim Var1 As String, Var2 As String, Str As String
Var1 = "OD"
Var2 = "Leave"
Str = """Employee"":""" & Var2 & """,""Type"":""" & Var1 & """"
Set ws = ActiveWorkbook.Worksheets("Sheet1")
ws.Cells(2, 4).Value = Str

代码说明 #

• 变量声明：明确将Var1、Var2、Str都声明为String类型，避免变体类型带来的潜在问题。
• 字符串拼接：VBA中用"""表示字符串里的单个双引号，通过&将固定文本和变量值拼接成目标格式的字符串。

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