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

2024年5月16日 68次阅读 来源: 叛逆的鲁鲁修love CC 
Sub 将所有列全部转换为文本()
t=timer
'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
MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "友情提示!!"  '//提示
End Sub

 

转载于:https://www.cnblogs.com/scai/p/10075927.html

    原文作者：叛逆的鲁鲁修love CC
    原文地址: https://blog.csdn.net/weixin_30236595/article/details/94992033
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞