VBA 正则去除汉字

我叫皮皮

已于 2022-03-05 16:47:09 修改

阅读量1.1k

点赞数

于 2022-03-05 16:44:42 首次发布

本文链接：https://blog.csdn.net/dick_ri/article/details/123297182

版权

关键词由CSDN通过智能技术生成

Function dqsz(A)
	With CreateObject("vbscript.RegExp")
		.Global = True
		.ignorecase = True
		.Pattern = "[\u4e00-\u9fa5]"
		dqsz = .Replace(A, "")
	End With
End Function

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

我叫皮皮

关注关注

0
点赞
踩
7

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

【Excel VBA 编程】带单位计算？正则表达式一秒去单位出结果

wei1019的专栏

04-23

928

在Excel VBA中使用正则表达式处理带有单位的字符串，并进行相应的计算，是一种强大的数据处理方式。例如，本期需求就是需要从一个个单元格中提取数值，然后根据这些信息执行一些数学计算。

VBA提取汉字字母混在字符串

蓝色心情AA11

12-23

4081

问题的提出：　　我有一个文本文件，里面的内容是以字节为长度分开的几个字段，现在想把每个字段读到EXCEL里面，结果发现EXCEL是以字符为单位处理字符串的。如下：　　str1="张三 12345678" '第一行　　str2="王老五 12345678" '另一行　　注意，张三后面是4个空格，王老五后面是两个空格，这样姓名一列

参与评论您还未登录，请先登录后发表或查看评论

利用VBA批量删除Excel中的中文/英文/数字或者替换中英文符号

Smilecoc的博客

04-20

9468

在Excel中经常会遇到去除所有的中文，英文或者数字等情况。但是由于Excel并不支持一次替换所有的中文，英文，数字等，所以有些解决方法是复制到Word中进行替换，但是这种方法个人感觉比较麻烦不好用，因此提供一个利用VBA解决这个问题的方法. 具体操作如下：使用“Alt+F11”打开开发者选项，在点击左侧的任意一个sheet，复制下面的代码内容， Sub remove_cn_char() Dim Rng As Range Dim Reg Set Reg = CreateObjec

移除字符串中的汉字

weixin_30659829的博客

02-10

1138

先获取字符串中的汉字，再用“”空格去代替。 private static Regex RegCHZN = new Regex("[\u4e00-\u9fa5]"); public static string GetRemoveCHZNStr(string inputstr) { Match m =RegCHZN.Match(inputstr);...

VBA之正则表达式（17）-- 提取多组数据（去除末尾字符）

神奇的BI

08-01

4461

实例需求：数据保存在A列中，需要在其中提取多组数据分别写入B：E列中。如果A列数据以反斜杠结尾，例如A4单元格100g787×1092-白牛皮沙龙纹A/，提取物料名称时需要去除末尾的反斜杠；对于非反斜杠结尾的数据，年提取减号之后的全部字符（包括反斜杠）作为“物料名称”。

Excel宏去除汉字

weixin_34349320的博客

12-20

1440

自定义函数Function deleteChina(rng As Range)s = Len(rng.Text)For i = 1 To stxt = StrConv(Mid(rng.Text, i, 1), vbNarrow)txt2 = StrConv(Mid(rng.Text, i, 1), vbWide)If txt <> txt2 Then除汉字 = 除汉字 & Mi...

删除/清除/过滤标点（所有中英文标点）的正则表达式——Desktop Search开发笔记【经验积累】

热门推荐

Harry Huang

09-22

2万+

在进行文本分析的时候我们经常需要过滤掉停用词，标点等，本文给大家介绍一下如何识别并删除文本中的所有标点符号。下面是三个可行的正则表达式方案，童鞋们来试试吧^_^ (1) s.replaceAll( "\\p{Punct}", "" ); (2) s.replaceAll("\\pP" , ""); (3) s.replaceAll("\\p{P}" , ""); (1)不能完全清楚所有标点，(2)和(3)等价都能完全清楚标点（中文和英文都能清除）需要注意的是，还是存在一些系统

EXCEL-VBA-正则表达式-从实例开始.docx

10-01

### EXCEL-VBA-正则表达式-从实例开始 #### 一、正则表达式基础知识正则表达式（Regular Expression），简称“regex”或“regexp”，是一种强大的文本模式匹配工具，广泛应用于多种编程语言中，用于进行复杂的...

正则表达式去除中括号（符号）及里面包含的内容

10-16

在本主题中，我们将探讨如何使用正则表达式去除中括号（包括方括号`[`和`]`）以及它们内部包含的内容。首先，我们要解决的问题是如何去除中括号及其内容。在PHP中，可以使用`preg_replace`函数配合正则表达式来...

正则表达式实现字符串每4位后自动加空格效果(两种方法)

10-18

// 先去除所有空格，然后再使用正则表达式添加空格 self.bankCard = self.bankCard.replace(/\s/g, '').replace(/[^\d]/g, ''); // 正则匹配每四位数字后自动添加空格 self.bankCard = self.bankCard.replace(/...

VBA之正则表达式（27）-- 提取包含关键字的字段

神奇的BI

11-02

4177

实例需求：待处理字符串如下，需要提取其中包含“电子”的部分，即：电子计算机、微型电子管、新创电子 -电脑-电脑硬盘-电子计算机-晶体管-微型电子管-新创电子- 示例代码如下。 Sub Demo1() Dim strWord As String Dim objRegExp As Object, objMH As Object Set objRegExp = CreateObject("VBSCRIPT.REGEXP") strWord = "-电脑-电脑硬盘-电子计算机-晶

去掉或替换字符串中的标点符号（正则表达式）

weixin_33795833的博客

09-27

1709

StringstrBefore="xxxxxxxxxx"; StringreplaceChar="";String strAfter = strBefore.replace(/[\|\!|\！|\,|\，|\。|\.\……|\?|\？|\-|\——|\"|\“|\”|\:|\：|\、|\+|\*|\/|\<|\>|\《|\》|\;|\；|$|$|\（|\...

正则化去除标点符号

DAICONG’s Blog

04-18

1382

通过re模块进行正则化匹配，删除具有自定义标点符号的query import re a="animelosummerlive（）()''《dogdays'》orlandobloom《" #r="\'\"“”！·：:;；^.。，, ？?>、~@#￥%……&》<>「」{}【】（）《》" r="[_.!+-=——,$%^,。?、~@#￥%……&*《》<>「」{}【】()（）/'']" res=re.sub(r,"",a) res #'animelosummerliv

正则表达式——去除文本中的非汉字（VB2005）

万仓一黍

11-17

3891

本人由于工作关系，需要一段代码，将给定的字符串中的非汉字去除，只保留汉字部分。这个一般用正则表达式比较简单，网上有一些匹配汉字的正则表达式，拿来经过改造就能实现我前面的要求。Public Function OnlyChinese(ByVal mText As String) As String  Return System.Text.RegularExpressions.Re

正则表达式处理中文和中文标点符号

蓑笠翁

06-28

8048

使用正则表达式处理中文和中文标点符号，介绍常用的正则表达式，如收集好正则，邮箱正则，座机正则，身份证正则，以及正则表达式常用符号。

excel中使用vba取中文、数字或字母