如何将word里面一串连续的数字删除掉?

[复制链接]
查看11 | 回复5 | 2012-2-27 11:47:04 | 显示全部楼层 |阅读模式
只要左边和右边的不会相同,且右边是连续的,可以写个宏(参考下面代码),执行下就行了:Sub CLS_MYTEXT()''CLS_MYTEXT 宏''
Selection.MoveRight Unit:=wdCharacter, Count:=6
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting' 这里需要改你需要的次数及初始值
For i = 1 To 7
With Selection.Find' 这里需要改你需要的格式
.Text = "1000" + Chr(i +...
回复

使用道具 举报

千问 | 2012-2-27 11:47:04 | 显示全部楼层
你是要删除126800001——12680000??的数据吗?方法1:分栏,使用空格进行分栏,这样12680000??就到另外的一栏,直接删除就好了。方法2:使用left公式,我看你的数据个数都是相同的,这个公式很好用的。如果不会用就追问好了。或者看下面的公式试试啊:=LEFT(A1,SEARCH(" ",A1))(假设数据在A1)...
回复

使用道具 举报

千问 | 2012-2-27 11:47:04 | 显示全部楼层
word中有没有这个批量删除的功能,没有验证。可以将word中的表格剪切后粘贴到Excel中,选中该列,右键,清除内容,再将表格复制粘贴到word中去。...
回复

使用道具 举报

千问 | 2012-2-27 11:47:04 | 显示全部楼层
看的不是很清楚.....如果这些数据是在表格里,有可能不行。查找:1268[0-9]{6,}替换为:勾上‘使用通配符’,替换为栏什么也不输入...
回复

使用道具 举报

千问 | 2012-2-27 11:47:04 | 显示全部楼层
鼠标定位在左上角需要删除数据的起始位置,按住Alt,用鼠标拖选至需要删除的数据的右下角,按Delete....
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行