单元格字符提取

nie414006

函数多省事

kuangben8

=LEFT(A1,MIN(FIND(ROW($1:$10)-1,A1&1/17))-1)

kuangben8

=TEXTBEFORE(A1,ROW($1:$10)-1)

usedrange

数字判断法

1. Sub tt()
   
2.     Dim ar, br, cr, i%, s$, t$, m%
   
3.     m = Sheet1.[a1].End(4).Row
   
4.     ar = Range("a1:a" & m)
   
5.     ReDim cr(1 To m, 1 To 1)
   
6.     Do While m > 0
   
7.         br = ar(m, 1)
   
8.         t = ""
   
9.         For i = 1 To Len(br)
   
10.             s = Mid(br, i, 1)
    
11.             If IsNumeric(s) Then Exit For
    
12.             t = t & s
    
13.         Next i
    
14.         cr(m, 1) = t
    
15.         m = m - 1
    
16.     Loop
    
17.     [b1].Resize(UBound(cr), 1) = cr
    
18. End Sub

复制代码

sunya_0529

除正则外，再提供3种解题思路——

mjm04

WPS正则函数

=REGEXP(A1,"^[A-Z]+")
下拉