excel vba提取字符

2025-05-15 05:14:04

推荐回答（3个）

回答1：

lnzzxzy的回答，公式中lef少了个字母(正确的是left)，正确的是:C10=IF(MID(B10,4,1)="-",LEFT(B10,3),"")
方法1：利用替换的方法达到结果

C10=IF(MID(SUBSTITUTE(B10,"-","朱"),4,1)="朱",LEFT(B10,3),"")
方法2：利用find查找第4位是否是-符号，配合if实现结果

C10=IF(B10="","",IF(FIND("-",B10)=4,LEFT(B10,3),""))

回答2：

Sub s()
    For i = 10 To 70
        a = ""
        b = Cells(i, 2)
        If Len(b) >= 4 Then
            For j = 1 To 4
                c = Mid(b, j, 1)
                If c = "-" Then
                    Cells(i, 3) = a
                Else
                    a = a & c
                End If
            Next
        End If
    Next
End Sub

回答3：

c10=if(mid(b10,4,1)="-",lef(b10,3),"")