Доброго Вам дня, уважаемые администраторы и форумчане. Прошу помощи в решении вопроса. Суть решения задачи в получении количества (штук) ячеек в столбце в которых записана дата. Все мира и добра, заранее спасибо!!
Доброго Вам дня, уважаемые администраторы и форумчане. Прошу помощи в решении вопроса. Суть решения задачи в получении количества (штук) ячеек в столбце в которых записана дата. Все мира и добра, заранее спасибо!!VDGS
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content], #"Filtered Rows" = Table.SelectRows(Source, each ([дата ввода в экс] <> "-")), #"Split Column by Delimiter" = Table.SplitColumn(#"Filtered Rows","дата ввода в экс",Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv),{"дата ввода в экс.1", "дата ввода в экс.2", "дата ввода в экс.3", "дата ввода в экс.4"}), #"Removed Other Columns" = Table.SelectColumns(#"Split Column by Delimiter",{"дата ввода в экс.1"}), #"Changed Type with Locale" = Table.TransformColumnTypes(#"Removed Other Columns", {{"дата ввода в экс.1", type date}}, "ru-RU"), #"Counted Rows" = Table.RowCount(#"Changed Type with Locale") in #"Counted Rows"
[/vba]
Power Query [vba]
Код
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content], #"Filtered Rows" = Table.SelectRows(Source, each ([дата ввода в экс] <> "-")), #"Split Column by Delimiter" = Table.SplitColumn(#"Filtered Rows","дата ввода в экс",Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv),{"дата ввода в экс.1", "дата ввода в экс.2", "дата ввода в экс.3", "дата ввода в экс.4"}), #"Removed Other Columns" = Table.SelectColumns(#"Split Column by Delimiter",{"дата ввода в экс.1"}), #"Changed Type with Locale" = Table.TransformColumnTypes(#"Removed Other Columns", {{"дата ввода в экс.1", type date}}, "ru-RU"), #"Counted Rows" = Table.RowCount(#"Changed Type with Locale") in #"Counted Rows"