如何对筛选状态下的数据进行格式转换？

作者：绿色风分类：时间：2022-08-17 浏览：111

楼主
liuguansky

Q：正常输数时，E列为数字，想让E列变成文本，编了个代码，测试也成功；问题是，当出现筛选时，只筛选一部份时，这个代码就出错，请老师指正下？[想达到的效果就是总是显示为7位，但是可以实现文本和数字的互转]
A：用如下代码可以实现：

Public rng As Range
Public rng1 As Range
Sub totext()
Set rng = Cells(2, "e").Resize(Cells(Rows.Count, 1).End(3).Row - 1, 1).SpecialCells(xlCellTypeVisible)
For Each rng1 In rng
rng1.Value = "'" & Format(rng1.Value, "0000000")
Next
Set rng1 = Nothing
End Sub
Sub tonumber()
For Each rng1 In rng
rng1.Value = Format(Val(rng1.Value), "0000000")
Next
End Sub

用定义可见单元格来处理，并加以格式化来处理显示问题，用"'"&来转换为文本。
具体示例文件：

桌面23.rar

2楼
xmyjk

谢谢花花分享。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表