excel自定义函数获取多个单元格中相同的字符
发布时间：2022-03-27 16:42:58
标签：函数,单元格,自定义,要在,Excel函数
要在Excel中获取区域内各单元格字符串中的相同字符，可用下面的自定义函数。例如要在D1单元格获取A1:C1区域各单元格中相同的字符，如图：
按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中输入自定义函数：
Function GetDupChars(rRng As Range) As String
Application.Volatile
Dim i As Integer, j As Integer, k As Integer
Dim Str As String
Str = rRng.Item(1).Text
For i = 1 To Len(Str)
k = 0
For j = 2 To rRng.Cells.Count
If InStr(rRng.Item(j).Text, Mid(Str, i, 1)) Then k = k + 1
Next
If k = j – 2 And InStr(GetDupChars, Mid(Str, i, 1)) = 0 _
Then GetDupChars = GetDupChars & Mid(Str, i, 1)
Next
End Function
然后关闭VBA编辑器，在D1单元格中输入公式即可：
=GetDupChars(A1:C1)
0
投稿猜你喜欢
- WPS2007的功能是相当强大的，对于普通办公而言，已经是完全足够了。这里，我们介绍两则关于WPS2007解决复杂输入的技巧：技巧一：巧妙输
Luminar 3 for mac是Mac os系统一款全新照片编辑工具Luminar 3 with Libraries，使用Luminar- 在Word2010文档中将链接设置为“手动更新”方式后，用户可以通过以下两种方式手动更新链接： 方式1：打开Wor
- 闪电PDF编辑器是一款功能强大的PDF编辑器，用户可以使用它编辑文字、图片等等，软件提供保护功能，用户可以在自己的文件或图片上添加水印，也可
- Wps表格中怎么自动隐藏代码？大家使用wps办公的时候都会遇到这样的问题吧，那么我们该怎么办呢，下面小编为大家分享一下在Wps中自动隐藏代码
- PPT图片怎么制作逼真的剪纸效果？PPT插入的图片想要制作成剪纸效果，图片该怎么添加剪纸效果呢？下面我们就来看看详细的教程，需要的朋友可以参
- PPT 2010中有一个合并与比较功能，很多人不知道怎么用或者说这个功能是干嘛的。其实这个功能很有用处，可以大大减轻我们的工作量。在平时的办
- Win10隐私设置一直是用户的一大心理病，win10总是偷偷记录用户打字记录，最近有用户发现，关闭更新系统后设置会默认再开，被用户狂吐槽 ，
- Win10系统无网络提示通讯端口初始化失败怎么办？很多Win10用户在打开电脑后，会遇到系统提示“windows 通信端口初始化失败”的情况
- 大家都知道爱奇艺视频网站，里面有很多独播的电视剧，很多爱看电视剧的朋友也对爱奇艺很是熟悉，不过有些使用网页看爱奇艺视屏的朋友也经常遇到播放失
- 最近有windows7系统用户反映，电脑重启后ip地址丢失怎么办，导致不能上网，这该怎么办呢？本文将提供win7电脑重启后ip地址丢失不能上
- 在制作商品价格的过程中，经常要使小数点对齐。那怎样使小数点对齐呢？下面给大家介绍一下1.清除文本格式，统一字体与字号2.点击左上角的图标3.
- 联想ThinkPad X270笔记本如何使用硬盘安装Win10系统？联想ThinkPad X270是一款便携商务笔记本，能让用户以更轻松的姿
- 最近有不少于用户更新win11系统之后发现自己玩不了这款游戏了，这是因为win11目前不兼容这款游戏，大家要是想玩的话只能回退win10。下
- mumu模拟器是由网易官方出品的一款安卓模拟器，受到广大用户的喜欢，但是有些用户不想用了想要卸载，发现怎么也卸载不干净，那么要如何卸载这款软
- Win7系统中ie禁用加载项取消的方法是什么？相信不少用户都遇到过，ie浏览器被打开的时候，在底部总是会弹出禁用加载项提示。想要关闭，但是却
- 我们在使用电脑的时候，经常会使用到U盘之类的USB设备连接电脑，不仅方便了我们携带资料办公也方便了读取，但是我们在Win10使用的时候经常会
- 格式工厂怎么合并音频？格式工厂（格式转换器）是比较全能的免费媒体转换软件，格式工厂中文版支持类型包括视频、音频和图片等主流媒体格式。下面小编
- win8系统吐槽已经有不少时间了，很多人习惯win8系统了，虽然微软近期推出了win10系统不过还是有不少人不习惯，于是很多朋友想安装win
- 需要输入各种各样的文档，有时候输入的文档会因为字间距太小，而变得密密麻麻，放大字体也没有用，看起来非常不美观，那么如何在WPS文档与Word
