Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 11 Home : Excel 2019)
パワークエリで分割できない
投稿日時: 22/09/25 14:43:46
投稿者: toma100

こんにちは、よろしくお願いいたします!
 
2021や365のPCでは、パワークエリの「列の分割」メニューに
数字以外から数字による分割があるのですが
2019のPCでは、見当たりません。
2019で、数式ではなくパワークエリを使って
住所の番地だけを別列に分割するには、どうしたらよいでしょうか?
 
住所
東京都新宿区ああ5-6-3光コーポ
 

 
住所       番地
東京都新宿区ああ 5-6-3光コーポ
 
のようにパワークエリでしたいです。
難しい記述がないとできないのでしょうか?
よろしくお願いいたします。

回答
投稿日時: 22/09/25 15:49:26
投稿者: んなっと

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
 

投稿日時: 22/09/25 16:34:58
投稿者: toma100

んなっと様
 
いつもありがとうございます!
そのまま貼り付けたら分割できました。
ありがとうございました(._.)//