如何提取字符串中的前两个字符？

nakebuyiyang

数据见附件。a列为原始数据列；b列是想要的结果列。a列中每个单元格中的内容都是分号分割的字符串。针对a列中的每个单元格，想提取每个字符串中的前两个字符，并且只保留提取后不同的字符。我该如何实现，各位大侠帮帮忙，非常感谢！！！

刀羊

不用公式的话，可考虑替换，
1*; 替换为 空
2*; 替换为 空
。
。
。
1*  替换为  空
2*  替换为  空
。
。
。
就是得多替几次。

nakebuyiyang

刀羊 发表于 2014-6-4 00:01
不用公式的话，可考虑替换，
1*; 替换为 空
2*; 替换为 空

谢谢，我也是用这种方法替换了

jsxjd

用VBA自定义函数比较合适

doitbest

1. Public Sub abc()
   
2. Dim ar, br(), i, ii, str
   
3. ar = Range([a2], [a65536].End(3))
   
4. ReDim br(1 To UBound(ar), 0)
   
5. For i = 1 To UBound(ar)
   
6.     str = Split(Replace(ar(i, 1), " ", ""), ";")
   
7.     For ii = 0 To UBound(str)
   
8.         If InStr(br(i, 0), Left(str(ii), 2)) = 0 Then
   
9.             br(i, 0) = Trim(br(i, 0) & " " & Left(str(ii), 2))
   
10.         End If
    
11.     Next
    
12. Next
    
13. [b2].Resize(i - 1) = br
    
14. End Sub

复制代码

doitbest

请参考附件

doitbest

自定义函数

-云中飞絮-

刀羊 发表于 2014-6-4 00:01
不用公式的话，可考虑替换，
1*; 替换为 空
2*; 替换为 空

简单实用，学习

ggmmlol

“提取符合特定规则的字符串”、“且要求去掉其中的重复项”，这个问题很有典 型代 表意义。

处理这样的问题，正是强大的正则表达式对象的拿手好戏！

使用以下通用型自定义函数，就可以一步完成提取和去重复。

B2单元格公式：
=REGREPLACE(A2,".*?([A-Z]{2})(?!.*?\1)[^;]+(;?)|.+","$1$2")

1. '使用正则替换方法编写的 “通用型” 文本处理函数
   
2. 
   
3. Public Function REGREPLACE(ByVal text1$, ByVal pttn$, Optional ByVal strReplacer$ = " ")
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = pttn
   
7.         REGREPLACE = .Replace(text1, strReplacer)
   
8.     End With
   
9. End Function

复制代码

ggmmlol

本实例被入选我的以下主题帖子中做为实例讲解和演示：

提取符合特定规则的文本，我用“万能正则表达式”！
http://club.excelhome.net/thread-1430954-1-1.html
(出处: ExcelHome技术论坛)

包含gif动画演示的解答过程的具体的楼层链接为：
http://club.excelhome.net/forum. ... 1430954&pid=9630262