小女子急求获取字母开头的最大值，，谢谢高手了

倩女幽魂

是这样的，，
    A列
CN20140615
CP20162511
CN20140616
CK20140701
CP20160512
CN20140617

我要求，，以CN或者CP的最大值，，，比如我现在是要求CN开头的最大值。。。谢谢高手了，，，

baksy

07版
=MAX(IFERROR(--SUBSTITUTE(A1:A6,"CN",""),""))

03版
=MAX(IF(ISERROR(FIND("CN",A1:A6)),"",--SUBSTITUTE(A1:A6,"CN","")))

都是三键回车(点击公式编辑栏中的任意位置，按住 shift、ctrl 两个键，然后敲enter键 )

ghostjiao

="CN"&MAX((LEFT(A1:A6,2)="CN")*RIGHT(A1:A6,LEN(A1:A6)-2))
数组公式

1032446692

baksy

07版
="CN"&MAX(IFERROR(--SUBSTITUTE(A1:A6,"CN",""),""))

03版
="CN"&MAX(IF(ISERROR(FIND("CN",A1:A6)),"",--SUBSTITUTE(A1:A6,"CN","")))

都是三键回车(点击公式编辑栏中的任意位置，按住 shift、ctrl 两个键，然后敲enter键 )

易安1

随手写三种 仅供参考{:301:}

倩女幽魂

谢谢各位了，要是用代码的话应该怎么写呢。。。先谢过各位好心的高手们了

易安1

{:361:}

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&, sz&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. With CreateObject("vbscript.regexp")
   
6.     .Pattern = "^[a-zA-Z]+"
   
7.     .Global = True
   
8.     For i = 1 To UBound(arr)
   
9.         sz = Val(.Replace(arr(i, 1), ""))
   
10.         Set ms = .Execute(arr(i, 1))
    
11.         If Not d.exists(ms(0)) Then
    
12.             d(Trim(ms(0))) = sz
    
13.         Else
    
14.             If d(Trim(ms(0))) < sz Then d(Trim(ms(0))) = sz
    
15.         End If
    
16.     Next
    
17. End With
    
18. [c:d].ClearContents
    
19. Range("c1").Resize(d.Count) = Application.Transpose(d.keys)
    
20. Range("d1").Resize(d.Count) = Application.Transpose(d.items)
    
21. End Sub

复制代码

………………

倩女幽魂

dsmch 发表于 2014-9-1 21:10
………………

谢谢高手了。。谢谢大家了