您的位置: 首页 > EXCEL技巧 > Excel函数 >

自定义函数获取多个单元格中相同的字符

时间:2013-12-13 整理:docExcel.net

  要在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)

用自定义函数去掉字符串中的重复字符 问题:用自定义函数去掉字符串中的重复字符
回答:...,如将字符串“1232345667”变成“1234567”,可以用自定义函数实现。    步骤如下: 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,在代码窗口中粘贴代码: Function RemoveDupChar(theString As String) As String Dim i As Int...
用自定义函数提取字符串中的重复字符 问题:用自定义函数提取字符串中的重复字符
回答:...cDe”中重复的几个字符“bce”,如图所示,可以用自定义函数实现。 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,在代码窗口中粘贴代码: Function GetDupChar(theString As String) As String Dim i As Integer For i = 1 To Len(theString...
用公式提取Excel单元格中的汉字 问题:用公式提取Excel单元格中的汉字
回答:...语)。 如果汉字位于字符串的开头或结尾,用LEFT或RIGHT函数即可提取,例如上图中A2:A4区域中的字符串。在B2中输入下面的公式:=LEFT(A2,LENB(A2)-LEN(A2))就会返回字符串中开头的几个汉字。说明:LENB函数和LEN函数都可用返回文本字...
数组公式提取单元格内第一个汉字前的字符串 问题:数组公式提取单元格内第一个汉字前的字符串
回答:...Ctrl+Shift+Enter结束,下同。 说明: 1.第一个公式先用MID函数单元格内文本的各个字符放置到一个数组,再用LENB函数判断各字符的长度,LENB函数对于单字节字符返回“1,”,而对于汉字(双字节)返回“2”。最后用MATCH函数判...
自定义函数获取多个单元格中相同的字符 问题:自定义函数获取多个单元格中相同的字符
回答:...区域内各单元字符串中的相同字符,可用下面的自定义函数。例如要在D1单元格获取A1:C1区域各单元格中相同的字符,如图: 按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入自定义函数: Function GetDupC...
用自定义函数提取单元格内字符串中的数字 问题:用自定义函数提取单元格内字符串中的数字
回答:...。要分别提取字符串中的各个数值,可以用下面的自定义函数。 在Excel中按Alt+F11,打开VBA编辑器。单击菜单“插入→模块”,在代码窗口中输入下列代码: Function GetNums(rCell As Range, num As Integer) As String   Dim Arr1() As String, ...
相关推荐: