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

Sub 将所有列全部转换为文本()
t=timer
'Cells(Rows.Count, 1).End(xlUp).Row 获取第一列最后一个非空单元格的行号
s = Cells(1, Columns.Count).End(xlToLeft).Column '获取第一行最后一个非空单元格的列号
For i = 1 To sColumns(i).SelectSelection.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 iMsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "友情提示!!"  '//提示
End Sub

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

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

excel中VBA获取指定单元格内容
1.筛选指定列获取数据 For Each Rng In Sheets("目录").Range("b1:B23")Debug.Print Rng.ValueIf ...
vba编程把纯文本转换成html,如何在Excel的单元格中将HTML转换为文本？
如何在Excel的单元格中将HTML转换为文本? 如下面的屏幕截图所示,如果工作表单元格中存在许多html标记,那么如何在Excel中将它们转换为纯文本? 本文将向您展示两种从Excel单元格中删除所 ...
13.Excel vba开发-合并单元格内容
1.需求:合并单元格内容 2.代码: Sub 无损合并单元格()Dim outputText As StringConst delim = ""On Error Resume Ne ...
Excel 中拼接多个单元格内容的方法
第一步,打开需要拼接多个单元格内容的表格第二步,在E2单元格输入[=A2&B2&C2&D2]即可得到拼接后的结果第三步,单击E2单元格右下角并往下拉,向下引用,单元格则自动 ...
Python读写Excel文件中指定区域单元格内容
封面图片:<Python程序设计基础(第2版)>,ISBN:9787302490562,董付国,清华大学出版社图书详情: 配套资源:用书教师可以免费获取教学大纲.教案.课件.源码.习题答 ...
vba 判断目标单元格内容改变的代码_【VBA小代码】批量改变单元格部分字符格式...
有朋友问:能不能批量将单元格中的部分字符改变格式,比如改变字体,字号,改变颜色--举个例子,如下图所示,将"领导"两个字--字体变成15号,红色加粗--干了这碗毒鸡汤,天黑就闭眼- ...
Excel利用VBA实现去掉单元格两边空格
直接贴代码,方便大家学习. '清除所有sheet页中单元格两端的空格 Public Sub trimCell()Dim sheetCount, columnCount, rowCount, tempR ...
excel之vba快速合并单元格
前言平时工作中经常会用到excel的功能, 难免有一些操作不能批量处理, 比如说某一列有100w的数据需要合并单元格, 手动去点的话, 费时费力, 又不能保证准确性. 此时一般有三种办法, 1.请出 ...
excel动态获取sheet页单元格内容
1.问题描述如下图所示,名称列可能是动态赋值的,名称列的内容有对应新的sheet页,如名称为PJ1及其PJ1的sheet页,最终需要获取PJ1的sheet页的B1单元格的内容. 如下图所示,是要获取 ...

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

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

最新文章

热门文章