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

Posted 2023-03-19

单元格原本格式为数值类型，且已填有数据，此时把单元格格式改为文本类型后，该单元格内的数据仍然还是数据类型，必须手动删除重新输入才会为文本类型，所以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 这个不是什么难事。

得看你的数据结构来写。

excel 用VBA将所有单元格内容全部转换为文本

Sub 将所有列全部转换为文本()

‘Cells(Rows.Count, 1).End(xlUp).Row 获取第一列最后一个非空单元格的行号
s = Cells(1, Columns.Count).End(xlToLeft).Column ‘获取第一行最后一个非空单元格的列号
For i = 1 To s
    Columns(i).Select
    Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
Next i
End Sub