使用CHR（34）在单元格内容周围添加引号的vba抛出“sub not defined”错误

Question

我厌倦了写一个宏，以便B列中的每个单元格在单元格中的整个字符串周围得到quote个标记

我收到错误Sub or Function not defined并突出显示CHAR（34）

由于

编辑：现在可以使用

Sub AddQuotesToCells()
Dim rng As Range, cell As Range
Dim LastRow As Long

With Sheets("sheet1")
    LastRow = .Range("A" & .Rows.Count).End(xlUp).Row

    Set rng = .Range("B2:B" & LastRow)

    For Each cell In rng
        cell.Value = Chr(34) & cell & Chr(34)
    Next
End With

End Sub

Answer 1

它不是CHAR() Chr()。另外，您是否忘记. range行前Set rng = range...了？

对于公式问题：
更改

rng.Formula = "=" & CHAR(34) & "B2" & CHAR(34) & ""

通过

rng.Formula = "=""""""" & Chr(34) & "&" & "B2" & "&" & Chr(34) & """"""""