卡住了。我需要一些VBA代码在excel范围内每个单元格的字符串周围插入双引号

我熟悉VB.NET，但excel中的VBA让我感到困惑。 通过我的最佳尝试，我得到了一个“类型不匹配”错误：

尝试使用chr（34）作为双引号字符

---

例如chr（34）&x.text&chr（34）

该代码应为：对于范围（“列表”）中的每个x。单元格x.text=”“*”&x.text&“&”在VB.NET中，字符串连接的执行方式与VBA中完全相同。转义双引号也是如此。因此，对于熟悉VB.NET的人来说，正确的代码，

“”&x.value&“

”，是显而易见的。

Sub AddQuotes()

    For Each x In Range("List").Cells
    x.Text = "*" * " & x.text & " & "*"
    Next

End Sub