excel 用VBA将所有单元格内容全部转换为文本
时间:2018-12-06 12:39:17
收藏:0
阅读:566
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
原文:https://www.cnblogs.com/scai/p/10075927.html
评论(0)