vba - 使用 VBA 将值作为文本输入到单元格，即使值以 =? 开头

Question

我在以下表达式中收到错误:

wksWrite.Cells(lWriteRow, "F") = Trim(wksRead.Cells(lReadRow, 2))

因为 Trim(wksRead.Cells(lReadRow, 2)) 的计算结果为:

=SKYDDSFOLIE FÖR SR-72 5424

我猜 Excel 会将其计算为公式，并且不允许 VBA 输入它。但我想将该值作为文本输入。我尝试添加:

    wksWrite.Cells(lWriteRow, "B").NumberFormat = "@"
    wksWrite.Cells(lWriteRow, "F").Value = CStr(Trim(wksRead.Cells(lReadRow, 2)))

但我仍然遇到同样的错误。如何强制 Excel 将值解释为文本并接受它？

Answer 1

您可以在值之前添加单引号，使其被视为字符串，

wksWrite.Cells(lWriteRow, "F") = "'" & Trim(wksRead.Cells(lReadRow, 2))