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

Posted scai

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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










以上是关于excel 用VBA将所有单元格内容全部转换为文本的主要内容,如果未能解决你的问题,请参考以下文章

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

求vba模块,excel把所有日期单元格转换为yyyy-mm-dd文本

求大神帮写VBA,以及导入方法,有函数的单元格内容自动转换为纯文本。

excel两个单元格内容合并不了怎么办?

Excel vba 执行时间与单元格内容长度呈指数关系

VBA将单元格内容分配为公式而不是其结果