作者：绿色风
分类：
时间：2022-08-18
浏览：185
楼主
研究研究 |
Q:删除字符串中的空格和数字?
 删除字符串中的空格和数字.zip
A: 放法很多
函数：- =MID(C2,MATCH(1=1,MID(C2&"做",ROW($1:$99),1)>"吖",),SUM(N(MID(C2,ROW($1:$99),1)>"吖")))
- =IF(LENB(LEFT(C2,LENB(C2)-LEN(C2)))-LENB(RIGHT(C2,LENB(C2)-LEN(C2)))>0,LEFT(C2,LENB(C2)-LEN(C2)),RIGHT(C2,LENB(C2)-LEN(C2)))
VBA自定义公式：- Function 汉字(reg, Optional gb As Boolean = True) As String
- With CreateObject("VBSCRIPT.REGEXP")
- .Global = True
- If gb Then
- .Pattern = "[^\u4e00-\u9fa5]"
- Else
- .Pattern = "[\u4e00-\u9fa5]"
- End If
- 汉字 = .Replace(reg, "")
- End With
- End Function
VBA直接替换：- Sub Macro1()
- Application.ScreenUpdating = False
- With Range("C:C,E:E")
- .Replace What:=" ", Replacement:=""
- .Replace What:="1", Replacement:=""
- .Replace What:="2", Replacement:=""
- .Replace What:="3", Replacement:=""
- End With
- Application.ScreenUpdating = True
- End Sub
|
2楼
研究研究 |
借用Word的“替换”功能也可一次性搞定。
复制那个空格(其实不是空格),然后Ctrl+H调用替换对话框,在查对内容文本框中粘贴,然后单击全部替换
万事大吉 |
3楼
天南地北 |
我再给你补充几个（得意思意思一下吧）- =MID(C2,MATCH(2,LENB(MID(C2&"吖",ROW(INDIRECT("1:"&LEN(C2)+1)),1)),0),LENB(C2)-LEN(C2))
- =MID(C2,MATCH(TRUE,MID(C2&"吖",ROW(INDIRECT("1:"&LEN(C2)+1)),1)>="吖",0),LENB(C2)-LEN(C2))
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一