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

Question

我熟悉VB.NET,但excel中的VBA让我很难过.在我最好的尝试中,我收到"类型不匹配"错误:

Sub AddQuotes()

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

End Sub

Answer 1

尝试使用chr(34)作为双引号字符

例如chr(34)&x.text&chr(34)