如何在 Excel 2016 中向使用 Power Query 創建的合並表中添加列？

Question

我有一個 Excel 2016 文件，其中包含我使用 Power Query 連接在一起的幾個表。 這些表有一些以文本形式填充的日期字段（例如“1022018”=2018 年 1 月 2 日），我需要將它們轉換為日期。 我為每個列添加了一個可以很好地轉換數據的列，但是每次刷新查詢時，新列都會消失。

我打開 Power Query 並嘗試添加一個自定義列，但我在 Excel 中創建的公式不起作用，它需要用 M 編寫。我沒有任何運氣找到一個簡單的轉換為 M 或使用其他方法來創建列Excel 公式。

任何想法如何做到這一點？

僅供參考，這里是公式： =IF(LEN([@DOBstring])=7,DATE(RIGHT([@DOBstring],4),LEFT([@DOBstring],1),MID([@DOBstring],2,2)),DATE(RIGHT([@DOBstring],4),LEFT([@DOBstring],2),MID([@DOBstring],3,2)))

Answer 1

如果我理解正確，輸入字符串中的month不是零填充的（導致輸入字符串的長度為 7 或 8）。

可能值得創建一個小的 function，如下所示，它將處理不同的長度，然后嘗試根據假定的字符位置解析日期。

ParseDate = (someText as text) as date =>
        let
            zeroPadded = Text.End("0" & someText, 8),
            yearParsed = Text.End(zeroPadded, 4),
            monthParsed = Text.Start(zeroPadded, 2),
            dayParsed = Text.Middle(zeroPadded, 2, 2),
            dateParsed = #date(Number.From(yearParsed), Number.From(monthParsed), Number.From(dayParsed))
        in dateParsed,

然后，您可以在轉換現有列或添加新列時調用它。 給你舉個例子：

let
    ParseDate = (someText as text) as date =>
        let
            zeroPadded = Text.End("0" & someText, 8),
            yearParsed = Text.End(zeroPadded, 4),
            monthParsed = Text.Start(zeroPadded, 2),
            dayParsed = Text.Middle(zeroPadded, 2, 2),
            dateParsed = #date(Number.From(yearParsed), Number.From(monthParsed), Number.From(dayParsed))
        in dateParsed,
    someTable = Table.FromColumns({{"1022018", "05242019", "12282026"}}, type table [toParse = text]),
    transformedColumn = Table.TransformColumns(someTable, {{"toParse", ParseDate, type date}}),
    addedColumn = Table.AddColumn(someTable, "parsed", each ParseDate([toParse]), type date)
in
    addedColumn

這使：

Answer 2

在 Power Query 中，使用以下公式創建自定義列：

= if Text.Length([Date])=7 then
  Text.Middle([Date],1,2)
    & "-"
    & "0"
    & Text.Start([Date], 1)
    & "-"
    & Text.End([Date],4) 
else
  Text.Middle([Date],2,2)
    & "-"
    & Text.Start([Date], 2)
    & "-"
    & Text.End([Date],4)

這將產生格式為 dd-mm-yyyy 的文本。 根據您的區域設置，在將此自定義列格式化為日期時，這將被轉換為正確的日期值。

否則，您將需要以下公式：

= if Text.Length([Date])=7 then 
  "0"
    & Text.Start([Date], 1)
    & "-"
    & Text.Middle([Date],1,2)
    & "-"
    & Text.End([Date],4)
else
  Text.Start([Date], 2)
    & "-"
    & Text.Middle([Date],2,2)
    & "-"
    & Text.End([Date],4)