Extract specific text from Excel cell to Translate

Question

Hello how to extract these texts (Yellow) from excel cells to translate screenshot: 
 code: 
 [dtcarousal class="dt_carousel wrapper" delay="0.15" nav=true ulclass="dt carousel ulid=""][cruslele][wrapdiv container="div" itemtype="Service" wrapper class="servicewrapper"][container container="div" container class="servicesicon"][img itemprop="image" alt="Academic Evaluation" title="Academic Evaluation"]/wpcontent/uploads/2018/05/bookicons.png[/img][/container] [/wrapdiv][/cruslele][/dtcarousal]] regards

sydney wilson · Answer

try this couple of codes it is VBA that is a good language you have to learn when you have to deal with MS Excel regards 
 
 Dim myVar: myVar = "itemtype, alt, title" Dim myEach, myArray, myDI, myRE, myCell, myMatches, myEl, myResult, myKey myArray = Split(myVar, ", ") Set myDI = CreateObject("Scripting.Dictionary") Set myRE = CreateObject("VBScript.RegExp") myRE.Global = True For Each myCell In ActiveSheet.UsedRange.Cells myRE.Pattern = myRE.Replace(myVar, "|") If myRE.Test(myCell.Text) Then For Each myEach In myArray myRE.Pattern = myEach & "=""(.+?)""" Set myMatches = myRE.Execute(myCell.Text) If myMatches.Count = 0 Then GoTo myError For Each myEl In myMatches If Not myDI.Exists(myEl.SubMatches(0)) Then myDI.Item(myEl.SubMatches(0)) = myDI.Count + 1 Next Next End If myError: Next For Each myKey In myDI myResult = myResult & myDI.Item(myKey) & ". " & myKey & vbCr Next MsgBox myResult

Trados Studio > 1. Trados Studio

Extract specific text from Excel cell to Translate