正文

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

IP云
IP云V管理员/9 阅读
08/22
小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

Sub 将所有列全部转换为文本()
t=timer
'Cells(Rows.Count, 1).End(xlUp).Row 获取第一列最后一个非空单元格的行号
s = Cells(, Columns.Count).End(xlToLeft).Column '获取第一行最后一个非空单元格的列号
For i = To s
Columns(i).Select
Selection.TextToColumns Destination:=Cells(, i), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(, ), TrailingMinusNumbers:=True
Next i
MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "友情提示!!"  '//提示
End Sub