First option - sorry for the late reply.or like this
Column1 Column1 beijing-guoan-fc-vs-shanghai-sipg-fc-h2h-stats#539665 beijing-guoan-fc -shanghai-sipg-fc- -stats#539665
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
SplitAnyC = Table.SplitColumn(Source, "Column1", Splitter.SplitTextByAnyDelimiter({"-vs","h2h"}, QuoteStyle.Csv))
in
SplitAnyC
Sub Split_Text()
With Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)
.Value = .Offset(, -1).Value
.Replace "-vs", ";", xlPart
.Replace "h2h", ";", xlPart
.TextToColumns , xlDelimited, , , False, True, False, False, False
.Resize(, 3).Columns.AutoFit
End With
End Sub