如何在 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)