formül içinden ürün isimlerini ve çarpanlarını ayıklamak

[Pırıl...]

Güzel akşamlar dilerim
AO2 hücresinde Tablo3[cam-da223510]*2+Tablo3[MNT-U SAMET MENTEŞE]*2+Tablo3[MİNİ ÇEYREK DÖNÜŞLÜ KELEBEK KİLİT PLASTİK]*2+Tablo3[STOPER 10*12]*4+Tablo3[4*11 POP diye bir formülüm var, bu formül içindeki ürün adlarını başka bir sayfaya

a1 e cam-da223510 B1 e 2 ( çarpan sayısı)
A2 ye MNT-U SAMET MENTEŞE B2 ye 2
A3 e MİNİ ÇEYREK DÖNÜŞLÜ KELEBEK KİLİT PLASTİK B3 e 2
A4 e STOPER 10*12 B4 e 4
A5 e 4*11 POP B5 e 0
olarak nasıl ayırabilirim

yardımlarınız için teşekürler

 

[Haluk]

Söz konusu hücreyi (veya hücreleri) seçtikten sonra aşağıdaki makroyu çalıştırırsanız "ürünler" A sütununda, "çarpanlar" B sütununda listelenecektir...

.

Sub Test()
    'Haluk - 09/06/2020
    'sa4truss@gmail.com
    Dim objRegEx As Object, objMatches As Object
    Dim i As Integer, iRow As Integer
    
    Set objRegEx = CreateObject("VBscript.RegExp")
    objRegEx.Global = True
    objRegEx.Pattern = "([^\[\]]+)]\*?(\d{1,3})?"
    
    For Each myCell In Selection
        Set objMatches = objRegEx.Execute(myCell.Text)
        For i = 0 To objMatches.Count - 1
            iRow = iRow + 1
            Range("A" & iRow) = objMatches(i).submatches(0)
            Range("B" & iRow) = objMatches(i).submatches(1)
        Next
    Next
    
    Set objMatches = Nothing
    Set objRegEx = Nothing
End Sub

.