Question

我必须以“1”的形式在单元格中写一个位置。用宏。无论我试图连接数字和点的方式，它总是只写一个数字。如果我在数字之前添加一个strin，则输出正确写入。如果我在点后添加另一个字符，它也会正确地写出结果。例子：

Sub concat()
Dim currentSht As Worksheet
Dim position, dot As String
Dim checkRow1 As Integer
Set currentSht = Sheets("Predtekmovanje")
position = "2"
dot = ".h"
currentSht.Range("AY8").Value = CStr(position) & dot
End Sub

如果有人在单元格中找到了如何以2.的形式输出输出的聪明方法，我会非常熟悉它。

Answer 1

首先将数字格式更改为Text，然后添加值。

currentSht.Range("AY8").NumberFormat="@"
currentSht.Range("AY8").Value="1."

Answer 2

您是否尝试过自定义数字格式？像这样：

With Sheet1.Range("A2")
    .NumberFormat = "#."
    .Value = position
End With

Excel：如何连接数字和字符串

2 个答案: