vba中怎么用代码将单元格内容转换为文本类型？

Posted 2023-03-19

A列格式类型是数值，且已有数据，此时选中A列将格式改为文本类型，但已有数据其实仍然是之前的数值格式，需要删除再重新输入才会是文本，这是人为修改的，用vba来实现将已有数据从数值强制转换为文本的代码怎么写？求高手指点，谢谢！

参考技术A Sub 文本()
Columns("A:A").Select
Selection.NumberFormatLocal = "@"
Dim i
For i = 1 To Range("a65536").End(xlUp).Row
Cells(i, 1) = Cells(i, 1) & ""
Next
End Sub
直接运行即可追问

试过了，好像还是不行，还是得手动把原数据重新输入一次才行

追答

第1图是数字，能求和

第2图，运行后，就无法求和了，怎么不行？



 参考技术B Sub 文本()
On Error Resume Next
Dim rn As Range
For Each rn In Selection
rn.Value = "'" & rn.Formula
Next
End Sub

看看这样满足你的要求不

选中需要的数据再执行本回答被提问者采纳

vba中如何将单元格内容强制转换为文本类型？

单元格原本格式为数值类型，且已填有数据，此时把单元格格式改为文本类型后，该单元格内的数据仍然还是数据类型，必须手动删除重新输入才会为文本类型，所以vba中如何实现将单元格已有内容强制转换为文本类型？

参考技术A 遍历单元格，单元格数据后&""
即可
用编程 参考技术B Sub 文本()
On Error Resume Next
Dim rn As Range
For Each rn In Selection
rn.Value = "'" & rn.Formula
Next
End Sub

看看这样满足你的要求不

选中需要的数据再执行

相同提问，相同答本回答被提问者采纳 参考技术C 关键是先确定你期望的操作的步骤。 参考技术D 这个不是什么难事。

得看你的数据结构来写。