{"text_format":"1","workbook":"xlsx","n_sheets":4,"sheets":["filterHTML","Output","_prefs","VBA as text"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":37,"comments":1,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"filterHTML","index":0,"n_rows":6,"n_cols":15,"rows_kept":6,"cut":false,"hidden":false,"merged":[]}
["Source"]
[null,null,null,null,null,null,null,null,null,null,null,null,"Delimiter:"," ",{"$f":"ASCII_codes(Delimiter)","v":"32"}]
["I",".","B","SUB",null,{"$f":"IF(_xlfn.SEQUENCE(ROWS(_xlfn.ANCHORARRAY(G5))),\"\")","v":""}]
["Italic","Normal","Bold","Subscripted",null,null,{"$f":"A4:D4","v":"Italic"},"Normal","Bold","Subscripted",null,{"$f":"IF(_xlfn.SEQUENCE(ROWS(_xlfn.ANCHORARRAY(M4))),\"\")","v":""},{"$f":"_xlfn.BYROW(range(G4),_xlfn.LAMBDA(_xlpm.a,_xlfn.TEXTJOIN(Delimiter,,\"<\" & A3 & \">\"&INDEX(_xlpm.a,,1)&\"</\" & A3 & \">\",\"<\" & B3 & \">\" & INDEX(_xlpm.a,,2) & \"</\" & B3 & \">\",\"<\" & C3 & \">\"&INDEX(_xlpm.a,,3)&\"</\" & C3 & \">\",\"<\" & D3 & \">\"&INDEX(_xlpm.a,,4)&\"</\" & D3 & \">\")))","v":"<I>Italic</I> <.>Normal</.> <B>Bold</B> <SUB>Subscripted</SUB>"},null,{"$f":"IF(_xlfn.SEQUENCE(ROWS(_xlfn.ANCHORARRAY(M4))),\"\")","v":""}]
[" ",":fork_knife_and_plate: and :horse:",null,null,null,null,{"$f":"_xlfn.LET(_xlpm.a,range(A6),_xlfn.MAKEARRAY(ROWS(_xlpm.a),COLUMNS(_xlpm.a),_xlfn.LAMBDA(_xlpm.r,_xlpm.c,replaceWords(INDEX(_xlpm.a,_xlpm.r,_xlpm.c),\":\" & Table1[Name in text] & \":\",Table1[HTML]))))","v":"&#65311;4&#11789;24&#128719;"},"New York","&#128178;549;&#127869;&#10006;&#65311;&#129534;&#128178;43;","&#128178;394&#127869;&#10006;&#65311;",null,"","<I>&#65311;4&#11789;24&#128719;</I> <.>New York</.> <B>&#128178;549;&#127869;&#10006;&#65311;&#129534;&#128178;43;</B> <SUB>&#128178;394&#127869;&#10006;&#65311;</SUB>",null,""]
[":question_mark:4:right_raised_omission_bracket:24:bed:","New York",":heavy_dollar_sign:549;:fork_knife_and_plate::heavy_multiplication_x::question_mark::receipt::heavy_dollar_sign:43;",":heavy_dollar_sign:394:fork_knife_and_plate::heavy_multiplication_x::question_mark:"]

{"sheet":"Output","index":1,"n_rows":11,"n_cols":3,"rows_kept":11,"cut":false,"hidden":false,"merged":[]}
["Output"]
[]
[null,"¬ That cell is named htmlTarget"]
["Italic Normal Bold Subscripted"]
["？4⸍24🛏 New York 💲549;🍽✖？🧾💲43; 💲394🍽✖？"]
[]
[]
[null,null,47]
[null,null,"kaka"]
[null,null,0]
[null,null,-17]

{"sheet":"_prefs","index":2,"n_rows":28,"n_cols":15,"rows_kept":28,"cut":false,"hidden":false,"merged":[]}
["Preferences",null,null,null,null,null,null,null,null,null,null,null,null,null,{"$f":"{\"30 jul 2023\";\"https//techcommunity.microsoft.com/t5/excel/lookup-to-include-formatting-with-its-return-value-non-vba/m-p/3883049#M199322\";\"bo.sinander@powerpage.se\";\"https://www.codetable.net/decimal/65025\"}","v":"30 jul 2023"}]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"https//techcommunity.microsoft.com/t5/excel/lookup-to-include-formatting-with-its-return-value-non-vba/m-p/3883049#M199322"]
["Replacements",null,null,null,null,null,null,"Misc remains - can be deleted",null,null,null,null,null,null,"bo.sinander@powerpage.se"]
["Name in text","Hex Code","Unichar","HTML",null,null,null,null,"Identify special chars in string",null,null,null,null,null,"https://www.codetable.net/decimal/65025"]
["airplane","1F6E7",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🛧"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#128743;"},null,null,null,null,"plate:️:heavy"]
["airplane → ",2708,{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"✈"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#9992;"},null,null,null,{"$f":"_xlfn.FORMULATEXT(I6:I7)","v":"=unicodes(I5)"},{"$f":"unicodes(I5)","v":"p = U+70 | l = U+6C | a = U+61 | t = U+74 | e = U+65 | : = U+3A | ️ = U+FE0F | : = U+3A | h = U+68 | e = U+65 | a = U+61 | v = U+76 | y = U+79"}]
["bed","1F6CF",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🛏"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#128719;"},null,null,null,"=unicodes(I5;256)",{"$f":"unicodes(I5,256)","v":"️ = U+FE0F"}]
["bed","u+1f6cf",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🛏"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#128719;"}]
["document","1f5ce",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🗎"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#128462;"},null,null,null,null,"LAMBDA: unicodes"]
["euro_sign","U+20AC",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"€"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#8364;"},null,null,null,null,{"$f":"_xlfn.LAMBDA(_xlpm.string,_xlop.min_unicode,\n\n_xlfn.LET(_xlpm.params, MAX(1,\n                    2*NOT(_xlfn.ISOMITTED(_xlpm.min_unicode)) ),\n_xlpm.minUnicode,IF(_xlpm.params=1,0,_xlpm.min_unicode),\n_xlpm.seq,_xlfn.SEQUENCE(LEN(_xlpm.string)),\n_xlpm.char,MID(_xlpm.string,_xlpm.seq,1),\n_xlpm.number,_xlfn.UNICODE(_xlpm.char),\n_xlpm.result,IFERROR(\n  IF(_xlpm.number<_xlpm.minUnicode,\n    \"\",\n    _xlpm.char & \" = U+\"&DEC2HEX(_xlpm.number)),\n  \"(#N/A Unichar)\"),\n_xlpm.output,_xlfn.TEXTJOIN(\" | \",,_xlpm.result),\n_xlpm.output\n)\n\n)(I5,256)","v":"️ = U+FE0F"}]
["euro-currency_sign","U+20A0",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"₠"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#8352;"}]
["fork_and_knife","U+1F374",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🍴"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#127860;"},null,null,null,null,{"$f":"_xlfn.LAMBDA(_xlpm.text,_xlpm.oldText,_xlpm.newText,\n  IF(ROWS(_xlpm.oldText)=1,_xlpm.text,\n    replaceWords(\n      SUBSTITUTE(_xlpm.text,INDEX(_xlpm.oldText,1),INDEX(_xlpm.newText,1)),\n      _xlfn.DROP(_xlpm.oldText,1),\n      _xlfn.DROP(_xlpm.newText,1)\n    )\n  )\n)(filterHTML!A6:D6,Table1[Name in text],Table1[HTML])","v":":&#65311;:4:&#11789;:24:&#128719;:"},"New York",":&#128178;:549;:&#127869;::&#10006;::&#65311;::&#129534;::&#128178;:43;",":&#128178;:394:&#127869;::&#10006;::&#65311;:"]
["fork_knife_and_plate","1f37d",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🍽"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#127869;"},null,null,null,null,"LAMBDA: replaceWords"]
["heavy_dollar_sign","1f4b2",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"💲"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#128178;"}]
["heavy_multiplication_x",2716,{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"✖"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#10006;"},null,null,null,null,"SCAN as an alternative calculation method"]
["horse","1f40e",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🐎"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#128014;"},null,null,null,null,{"$f":"_xlfn.TAKE(\n_xlfn.SCAN(filterHTML!A6,_xlfn.SEQUENCE(ROWS(Table1[#Data])),\n  _xlfn.LAMBDA(_xlpm.a,_xlpm.b,\n    SUBSTITUTE(_xlpm.a,\":\" & INDEX(Table1[Name in text],_xlpm.b) & \":\",INDEX(Table1[Unichar],_xlpm.b))\n  )\n),-1)","v":"？4⸍24🛏"}]
["question_mark","ff1f",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"？"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#65311;"}]
["receipt","1F9FE",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🧾"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#129534;"}]
["right_raised_omission_bracket","2E0D",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"⸍"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#11789;"}]
["variation_selector-16","fe0f",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"️"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#65039;"}]
["cake","1F382",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🎂"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#127874;"},null,null,null,"Get unicodes - help when unichar is known"]
["cow","1F402",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🐂"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#128002;"},null,null,null,null,"Copy and paste as value in Table1"]
["halloween_pump","1F383",{"$f":"_xlfn.UNICHAR(HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")))","v":"🎃"},{"$f":"\"&#\" & HEX2DEC(SUBSTITUTE(UPPER(Table1[[#This Row],[Hex Code]]),\"U+\",\"\")) & \";\"","v":"&#127875;"},null,null,null,"Unichar","DEC2HEX"]
[null,null,null,null,null,null,null,"⸍",{"$f":"DEC2HEX(_xlfn.UNICODE(Table2[[#This Row],[Unichar]]))","v":"2E0D"}]
[null,null,null,null,null,null,null,"🧾",{"$f":"DEC2HEX(_xlfn.UNICODE(Table2[[#This Row],[Unichar]]))","v":"1F9FE"}]
[null,null,null,null,null,null,null,"🛧",{"$f":"DEC2HEX(_xlfn.UNICODE(Table2[[#This Row],[Unichar]]))","v":"1F6E7"}]
[null,null,null,null,null,null,null,"🥳",{"$f":"DEC2HEX(_xlfn.UNICODE(Table2[[#This Row],[Unichar]]))","v":"1F973"}]
[null,null,null,null,null,null,null,"🎂",{"$f":"DEC2HEX(_xlfn.UNICODE(Table2[[#This Row],[Unichar]]))","v":"1F382"}]

{"sheet":"VBA as text","index":3,"n_rows":10,"n_cols":1,"rows_kept":10,"cut":false,"hidden":false,"merged":[]}
["File is aved without active content (macro). Analyse the code in A10 and then you may;"]
["Double click A10 and copy all its content including rows not shown (max row height not high enough). Ctrl+A+C"]
["Alt+F11 to open Macro Code Editor"]
["Insert: Module"]
["Paste"]
["Alt+F4 to close Editor"]
["Save as… type xlsm"]
["Done - or you may have to close and reopen the file"]
[]
["Option Explicit\n\nSub filterHTML()\n    'https//techcommunity.microsoft.com/t5/excel/lookup-to-include-formatting-with-its-return-value-non-vba/m-p/3883049#M199322\n\n    Dim path As String, tmpFile  As String\n    Dim fileNo As Variant\n    \n    Dim text As String, str As String\n    \n    Dim rowCounter As Integer, rowCount As Integer\n    \n    tmpFile = \"_tmp.htm\"\n    \n    ThisWorkbook.Activate\n    Application.Goto \"htmlTarget\"\n    Range(ActiveCell, ActiveCell.Offset(Range(\"a1\").SpecialCells(xlCellTypeLastCell).Row - ActiveCell.Row)).ClearContents\n    \n    Application.Goto \"htmlSource\"\n    rowCount = Range(\"a1\").SpecialCells(xlCellTypeLastCell).Row - Range(\"htmlSource\").Row\n    \n    text = \"<HTML>\"                                 'begin with HTML tag\n    For rowCounter = 0 To rowCount                  'loop through the cells\n        str = Range(\"htmlSource\").Offset(rowCounter, 0).Value\n        Debug.Print str\n        If str = \"\" Then str = \"&#00\"               'nothing on empty rows\n        text = text & str & \"<BR>\" & vbCrLf         'add line break\n    Next rowCounter\n    text = text & \"</HTML>\"                         'end with closing HTML tag\n    \n    path = ThisWorkbook.path & \"\\\" & tmpFile        'get path to a temp file in same folder\n    \n    fileNo = FreeFile\n    Open path For Output As #fileNo\n    Print #fileNo, text                             'Write the selected data into the text file. 'Write' would include \"\n    Close #fileNo\n\n    Application.Goto \"htmlTarget\"\n    \n    Workbooks.Open path                             'fetch html data\n    Range(Cells(1, 1), Cells(Range(\"a1\").SpecialCells(xlCellTypeLastCell).Row, 1)).MergeCells = False\n    Range(Cells(1, 1), Cells(Range(\"a1\").SpecialCells(xlCellTypeLastCell).Row, 1)).WrapText = False\n    Range(Cells(1, 1), Cells(Range(\"a1\").SpecialCells(xlCellTypeLastCell).Row, 1)).Copy\n    \n    ThisWorkbook.Activate\n    ActiveSheet.Paste\n    \n    Windows(tmpFile).Close False                    'dispose the temp file\n    Kill path\nEnd Sub\n"]