One way:
let
Kilde = Excel.CurrentWorkbook(){[Name="Tabel1"]}[Content],
#"Ændret type" = Table.TransformColumnTypes(Kilde,{{"All", type text}}),
#"Duplicated Column" = Table.DuplicateColumn(#"Ændret type", "All", "All - Copy"),
#"Replaced Value" = Table.ReplaceValue(#"Duplicated Column","|","",Replacer.ReplaceText,{"All - Copy"}),
#"Added Custom" = Table.AddColumn(#"Replaced Value", "Custom", each Text.Length([All])-Text.Length([#"All - Copy"])),
#"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"All - Copy"}),
#"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"Custom", "Count"}})
in
#"Renamed Columns"
Bookmarks