永发信息网

excel单元格中替换两个数字之间的某个字符.

答案:4  悬赏:70  手机版
解决时间 2021-02-21 02:11
例如A*B,a,b为任意数字,*号为任意非数字字符,(可能是字母或者符号)请问如何一次性的替换工作表中所有的*号.
当然只替换a*b数字之间的*号,其余不是数字之间的*号不替换.
*号一般为一个固定的字符比如"_".
最佳答案
用宏来做吧
Sub t()
Dim reg, rep As String
Dim cl As Range
Set reg = CreateObject("vbscript.regexp")
rep = InputBox("请输入替换为字符:")
reg.Pattern = "(\d)[^\d](\d)"
reg.Global = True
For Each cl In ActiveSheet.UsedRange
    If reg.test(cl.Value) = True Then
        cl = reg.Replace(cl.Value, "$1" & rep & "$2")
    End If
Next
End Sub按提示输入字符就可以。
全部回答
方法一 用查找---替换的方法: 按下ctrl+h 在查找中写入该字符(可以用ctrl+c复制该字符,再到查找中按下ctrl+v进行粘贴) 在替换中不写入内容 全部替换。   举例如下面的两个图: 替换掉单元格中的“★”号过程         方法二 用公式在另一个单元格中实现: 假设要替换掉a1单元格中的“★”号,则可以在b1单元格写入公式 =substitute(a1,"★",) 下拉填充公式。   如图:
利用查找替换功能,查找a*b替换成你需要的,如:a-b
用VBA应该是比较方便的,不过我比较无聊,写了个公式: =IF(AND(ISNUMBER(--LEFt(Sheet1!A1,1)),ISNUMBER(--RIGHt(Sheet1!A1,1))),REPLACE(Sheet1!A1,MATCH(100,IFERROR(FIND(MId(Sheet1!A1,ROW(INDIRECT("1:"&LEN(Sheet1!A1))),1),"0123456789"),100),0),LOOKUP(2,1/(IFERROR(FIND(MId(Sheet1!A1,ROW(INDIRECT("1:"&LEN(Sheet1!A1))),1),"0123456789"),100)=100),ROW(INDIRECT("1:"&LEN(Sheet1!A1))))+1-MATCH(100,IFERROR(FIND(MId(Sheet1!A1,ROW(INDIRECT("1:"&LEN(Sheet1!A1))),1),"0123456789"),100),0),""),Sheet1!A1) ctrl+shift+enter结束 假设数据在sheet1,从A1开始的 在另一个工作表比如sheet2的A1填入公式,根据sheet1的区域来填充sheet2,然后把sheet2的值复制到sheet1就行了,那个空字符换成你要替换的东西 看来我理解有点错了,不是替换所有字符
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
俊杰厨卫在哪里啊,我有事要去这个地方
领导美国人民从经济危机中复苏并赢得二战胜利
普尔8球俱乐部地址在什么地方,想过去办事
vba 宏中我想用变量指定一个特定单元格
【我过】我过了一个快乐的年作文
请问眼袋做了多长时间能恢复?
腾讯动漫亮度调黑了怎么调回来正在看着怎么调
林丽饼店在什么地方啊,我要过去处理事情
下巴凹陷面相
怎么删除vbox的增强功能
兰香阁酒楼在什么地方啊,我要过去处理事情
湖南娄底适合种植什么果树
【初二下册数学知识点】初二下数学知识点
装修时暗盒里的电线头都要包起来吗?
东镇超市这个地址在什么地方,我要处理点事
推荐资讯
有没有一种转换线是把针孔式的转换成USB插孔
女宝宝起名小凡的意思
吉祥大排档我想知道这个在什么地方
鲜果屋旗舰店地址有知道的么?有点事想过去
祥云床垫地址在哪,我要去那里办事
泡澡是什么意思
【歪风邪气】歪风斜气和歪风邪气的区别
想在双流投资一套房,朋友推荐温资金港华府,
运用你所学知识判断,下列有关神经调节和激素
信用卡怎么在支付宝使用
急!!!中国联通ipass插在IPAD上能用吗? 是
小学一年级英语一年级起点,外语教学与研究出
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?