Мне нужна формула Excel, чтобы сказать, сколько чисел и алфавитов в ячейке

Question

Эй, ребята, мне нужна помощь в сортировке серий номеров на Excel.

поэтому у меня есть образец BMA759JA, и мне нужна формула, которая говорит мне, сколько алфавитов содержится в ячейке и сколько чисел также содержится в ячейке.

так что это очевидно 3 алфавита, 3 цифры и 2 алфавита слева, но как мне написать формулу, чтобы дать те же детали ???

Я перепробовал несколько вещей, но безрезультатно

Answer 1

Предполагая, что вы принимаете "BMA759JA" в камере

так что это очевидно 3 алфавита, 3 цифры и 2 алфавита

Тогда это всегда будет 5 алфавитов и 3 цифры.

---

Применяя формулу, вы можете разделить каждый символ строки на одну ячейку.

cell A1: B
cell A2: M
cell A3: A
....

тогда вы можете использовать функцию подсчета

cell A10: =count(A1)

затем просто добавьте все результаты подсчета для каждого слова

cell A19: =sum(A10:A18)

Answer 2

Используйте это для проверки:

=AND(SUMPRODUCT(--ISERROR(--MID(A2,{1,2},1)))=2,ISNUMBER(--MID(A2,AGGREGATE(15,6,ROW(1:8)/(ISNUMBER(--MID(A2,ROW(1:8),1))),1),AGGREGATE(14,6,ROW(1:8)/(ISNUMBER(--MID(A2,ROW(1:8),1))),1)-AGGREGATE(15,6,ROW(1:8)/(ISNUMBER(--MID(A2,ROW(1:8),1))),1))))

Answer 3

Следующая определяемая пользователем функция возвращает количество букв, за которыми следует число цифр, а затем количество букв в виде списка через запятую, например:

10,2,3

Public Function decompose(s As String) As String
    Dim breakdown(1 To 100) As Long, L As Long
    Dim i As Long, c As String, j As Long
    L = Len(s)
    breakdown(1) = 1
    j = 1
    For i = 2 To L
        c = Mid(s, i, 1)
        If typ(c) = typ(Mid(s, i - 1, 1)) Then
            breakdown(j) = breakdown(j) + 1
        Else
            j = j + 1
            breakdown(j) = 1
        End If
    Next i

    For i = 1 To j
        decompose = decompose & "," & breakdown(i)
    Next i

    decompose = Mid(decompose, 2)

End Function


Public Function typ(s As String) As String
    If s Like "[0-9]" Then
        typ = "number"
    Else
        typ = "letter"
    End If
End Function