let
Src = Excel.CurrentWorkbook(){[Name="テーブル1"]}[Content],
Trf = Table.TransformColumnTypes(Src,List.Transform(Table.ColumnNames(Src), each { _ , type text})),
Fst = Table.AddColumn(Trf, "住所.1", each Text.SplitAny([住所],"0123456789"){0}),
Add = Table.AddColumn(Fst, "番地", each Text.Middle([住所],Text.Length([住所.1]))),
Del = Table.RemoveColumns(Add,{"住所"})
in
Del
とか
let
Src = Excel.CurrentWorkbook(){[Name="テーブル1"]}[Content],
Trf = Table.TransformColumnTypes(Src,List.Transform(Table.ColumnNames(Src), each { _ , type text})),
Add = Table.AddColumn(Trf, "位置", each Text.PositionOfAny([住所],{"0".."9"})),
Fst = Table.AddColumn(Add, "住所.1", each Text.Start([住所], [位置]), type text),
Lst = Table.AddColumn(Fst, "番地", each Text.Middle([住所], [位置]), type text),
Del = Table.RemoveColumns(Lst,{"住所", "位置"})
in
Del