excel 单元格数据取前几位。。

Question

怎样取以下数据，CJ009-01外套          CJ009-01
红色衫                   
JJ001七分裤           JJ001
JC002(五分裤)         JC002
JJ152                 JJ152
SJ003-10              SJ003-10             
KJ0034-01毛衣         KJ0034-01
A3分切
如上，EXCEL怎样自取前面所需的字符。。

Answer 1

取下面红色部分的。。CJ009-01外套 CJ009-01
红色衫   
JJ001七分裤 JJ001
JC002(五分裤) JC002
JJ152 JJ152
SJ003-10 SJ003-10   
KJ0034-01毛衣 KJ0034-01
A3分切  不取

Answer 2

用
=IF(FIND(" ",A1,1) > 0, MID(A1,FIND(" ",A1,1),LEN(A1) -FIND(" ",A1,1)+1 ),"")
但对最下面哪行不行。

Answer 3

CJ009-01外套 
红色衫   
JJ001七分裤
JC002(五分裤)
JJ152 
SJ003-10 
KJ0034-01毛衣 
A3分切 不取我的意思是取红色的部分哦

Answer 4

恩，如果前面是两个字符（如JJ）后面有三个以上的数字，再看数字后面有没有-，如果没有就取到数字结束为止。。JC002(五分裤)
JJ152  
如果有的话就再加3位
SJ003-10 
KJ0034-01毛衣看起来好复杂，不知道怎么写。

Answer 5

excel里有find和search，但是如要查的字符不存在，就出错。
还是改成csv文件，用vb干。

Answer 6

如果楼主想要用VBA来实现，那么代码如下：
（刚刚试了下，结果与楼主的一致）
Sub GetCode()
    Dim FinalRow As Long, i As Long, j As Long, Length As Long
    Dim Sh1 As Worksheet
    
    Set Sh1 = Worksheets("表1")
    
    With Sh1
        FinalRow = .Cells(65535, 1).End(xlUp).Row
        For i = 1 To FinalRow
            Length = Len(.Cells(i, 1))
            If Length > 0 Then
                For j = 1 To Length
                    If Asc(Mid$(.Cells(i, 1), j, 1)) > 127 Or Asc(Mid$(.Cells(i, 1), j, 1)) < 42 Then
                        If j > 1 Then
                            .Cells(i, 2) = Trim$(Left$(.Cells(i, 1), j - 1))
                        End If
                        Exit For
                    End If
                    If j = Length And Asc(Mid$(.Cells(i, 1), j, 1)) < 127 And Asc(Mid$(.Cells(i, 1), j, 1)) > 42 Then
                        .Cells(i, 2) = Trim$(.Cells(i, 1))
                    End If
                Next j
            End If
        Next i
    End With
End Sub