如何添加两个数字字符串？

Question

我试图在单元格中显示一个数字字符串值，开头是char“0”。 这是我的代码：

    Sub test2()
    Dim text As String
    text = Range("A1").Value
    Range("a1").Value = "0" & text

    End Sub

如果A1中的值是字母，它可以正常工作（例如从“a”到“0a”） 如果A1中的值是数字，则仅显示第一个数值（例如，从“11”到“11”而不是“011”

Answer 1

采取的方法取决于：

1. 是否要使用VBA或工作表公式。在你的例子中你有VBA，但它可能不是强制性的，或者甚至可以避免（这通常是我的选择，除非需要VBA）。

2. 您是希望结果是数字还是字符串（您要求输入字符串，这是更容易的选项）。

非VBA，它为您提供一个字符串（来自整数或单元格A1中的字符串），

="0"&TEXT(A1,"0")

使用VBA，使用TimWilliams的解决方案（Range("a1").Value = "'0" & text而不是代码的最后一行）。