我们都知道当数据过多的时候，我们制作Excel图表就会显得非常的复杂，图表上面的内容就会特别多。Excel老玩家就会想到用切片器制作动态可变化的图表来显示。今天我们就来学习一下一个比......
2023-01-08
excel 自定义函数实现提取汉字
Excel函数
2023-01-08
从字符串中提取或者删除汉字是在我们日常使用Excel中时常遇到的问题，这里提供一个从网络上收集而来的提取或者删除汉字的自定义函数，方便大家日常使用。
'---------------------------------------------------
'功能：提取字符串中汉字或者非汉字
'说明：Rg原字符串或单元格
'Et为True时，提取汉字，否则为提取非汉字
'发布：http://www.office26.com
'---------------------------------------------------
FunctionExtractHanzi(RgAsVariant,_
OptionalEtAsBoolean=True)AsString
WithCreateObject("VBSCRIPT.REGEXP")
.Global=True
IfEtThen
.Pattern="[^u4e00-u9fa5]"
Else
.Pattern="[u4e00-u9fa5]"
EndIf
ExtractHanzi=.Replace(Rg,"")
EndWith
EndFunction
实际应用：
作为一个函数使用在工作表的公式中，如：单元格A1的值为"ExcelFans.com欢迎你"，然后我们在A2中键入公式=ExtractHanzi(A1)，显示结果为：欢迎你：
把它用到其他的代码中，以下代码就是去除所选定区域中的所有汉字
'---------------------------------------------------
'功能：删除选定区域中所有汉字
'发布：http://www.office26.com
'---------------------------------------------------
SubDelAllHanzi()
DimRgAsRange,Rg1AsRange
DimxAddressAsString
OnErrorResumeNext
xAddress=ActiveSheet.UsedRange.Address
SetRg=Application.InputBox("请选择一个区域:","office26.com",xAddress,,,,,8)
IfRgIsNothingThenExitSub
SetRg=Application.Intersect(Rg,ActiveSheet.UsedRange)
IfRgIsNothingThenExitSub
ForEachRg1InRg
Rg1=ExtractHanzi(Rg1,False)
Next
EndSub
excel 自定义函数实现提取汉字的下载地址：
相关文章
- 详细阅读
-
excel 合并上百个工作簿数据，你花了一天别人只用了10秒详细阅读
在工作中，可能许多朋友都会碰到一个情况，那就是工作簿和工作表数据的合并操作。如何将上百个工作簿快速合并到一个表格中，许多朋友可能会觉得不可思议。今天我们就来教大家学习一......
2023-01-08
-
Excel文本函数，excel拆分和组合函数，掌握这些就够了！详细阅读
今天在这里为你分享5个Excel文本函数，这些拆分和组合函数，你一定会用上的。①LEFT函数公式：=LEFT(A2,1)在Excel表格中，需要想要拆分汉字，想从哪里开始就从那哪里开始。首先选定单元格......
2023-01-08
-
Excel函数一键变翻译，学会了这个方法，再也用苦思冥想了！详细阅读
相信大家也和我一样，才开始看到Excel可以当做翻译软件的时候会很好奇，这究竟是怎样做到的？其实，这个方法并不是很难，它是由一个函数公式而制作出来的，好了，首先我们一起来看看成......
2023-01-08
-
Excel函数公式大全，办公室人员必备！详细阅读
函数可以说是所用快捷方法中最为简单的一种方法，为什么很多人认为函数用起来很难了？主要是因为它拥有很长的函数公式，记不住。其实不管是学Excel函数，还是学习其他的一些快捷方法......
2023-01-08