[table="width: 500"]
[tr]
[td]Function SumMinutes(VerticalRange As Range) As Long
SumMinutes = Evaluate(Replace(Join(Application.Transpose(VerticalRange), "'") & 0, "'", "+"))
End Function[/td]
[/tr]
[/table]
[SIZE=1]// Table1
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
Type = Table.TransformColumnTypes(Source,{{"minutes", type text}}),
Replace = Table.ReplaceValue(Type,"'","+",Replacer.ReplaceText,{"minutes"}),
Extract = Table.TransformColumns(Replace, {{"minutes", each Text.BeforeDelimiter(_, "+", {0, RelativePosition.FromEnd}), type text}}),
Eval = Table.AddColumn(Extract, "Evaluate", each Expression.Evaluate([minutes])),
RC = Table.RemoveColumns(Eval,{"minutes"})
in
RC[/SIZE]