excel vba 数字转文本

发布网友发布时间：2022-04-29 14:56

共3个回答

热心网友时间：2023-10-13 08:10

亲，对B列设置完文本“@”，要对B列重新赋予文本状态的A列值，才能正常显示成文本。假设A列数据有100行：

Dim i As Integer
Range("B:B").NumberFormat = "@"
For i = 1 To 100
Range("B" & i) = Format(Range("A" & i), "0")
Next

追问我成功了。用以下的代码，用了循环，可以有不用循环的方法吗？如果我一次换一列2000+的数据，用循环可能久一点。

Sub 数字转文本()
Dim rn As Range
For Each rn In Selection
rn.Offset(0, 1).NumberFormat = "@"
rn.Offset(0, 1) = Format(rn, "0")
Next

追答我还真没办法，Excel这方面比较搞人。假如你是手工操作，把B列设成了文本格式，还要一个单元格一个单元格地双击才能转换成正常显示……
期待其他专家有更好的办法。

热心网友时间：2023-10-13 08:11

&一个空字符，或者是&撇号，就行

热心网友时间：2023-10-13 08:11

以A1为例子：
[a1] = "'" & [a1]