Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выборочный импорт данных (убрать лишние символы) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Google Docs » Выборочный импорт данных (убрать лишние символы) (Формулы/Formulas)
Выборочный импорт данных (убрать лишние символы)
terat Дата: Суббота, 02.05.2020, 14:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Продолжение темы: http://www.excelworld.ru/forum/23-44458-1#293797

Не мог даже подумать что символы станут такой проблемой.
При импорте данных, импортируются всевозможные лишние символы, как их обрезать?
Пример:
Есть в таблице, ячейка и там значение "+15°", нужно импортировать значение 15, и все

В дальнейшем нужно будет эти значения сравнивать и на сколько корректно произойдет сравнение с такими символами непонятно, да и не удобно это.
Таблица все таже: https://docs.google.com/spreads....dit

Есть даже примеры листов (ПРИМЕР1 и ПРИМЕР2).

Что только не пробовал, не знаю что еще сделать.
p.s. способ найти и заменить не подойдет, так как данные постоянно обновляются. Может макрос можно сделать как-то? но тогда нужно его производить с достаточно большой частотой, чтобы можно было видеть сразу результаты. Может есть какой-то формат данных?
Зашел в тупик (
 
Ответить
СообщениеПродолжение темы: http://www.excelworld.ru/forum/23-44458-1#293797

Не мог даже подумать что символы станут такой проблемой.
При импорте данных, импортируются всевозможные лишние символы, как их обрезать?
Пример:
Есть в таблице, ячейка и там значение "+15°", нужно импортировать значение 15, и все

В дальнейшем нужно будет эти значения сравнивать и на сколько корректно произойдет сравнение с такими символами непонятно, да и не удобно это.
Таблица все таже: https://docs.google.com/spreads....dit

Есть даже примеры листов (ПРИМЕР1 и ПРИМЕР2).

Что только не пробовал, не знаю что еще сделать.
p.s. способ найти и заменить не подойдет, так как данные постоянно обновляются. Может макрос можно сделать как-то? но тогда нужно его производить с достаточно большой частотой, чтобы можно было видеть сразу результаты. Может есть какой-то формат данных?
Зашел в тупик (

Автор - terat
Дата добавления - 02.05.2020 в 14:34
krosav4ig Дата: Воскресенье, 03.05.2020, 04:03 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
=ArrayFormula({{"Дата",TODAY()};{{"Макс";"Мин";"Средняя"},ArrayFormula(IMPORTXML("http://www.meteocenter.asia/?m=e&p=28698","//table[@class='tab_z']//td[contains(text(),'"&Textjoin(" температура') or contains(text(),'",0,"Мин.","Макс.","Среднесуточная")&" температура')]/following-sibling::td[1]"))}})
[/vba][vba]
Код
=Transpose(Query(Arrayformula(iferror(--REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(?:(\d+)*\x0a.*)|\+","$1"),)),"select Col1, Min(Col4),Avg(Col4),Max(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура'"))
[/vba][vba]
Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING(Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","\/[^\d]|.*\–|[^\d\/:.]",""),)}),"Select max(Col2),Min(Col5),Avg(Col5),Max(Col5) group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 03.05.2020, 05:27
 
Ответить
Сообщение[vba]
Код
=ArrayFormula({{"Дата",TODAY()};{{"Макс";"Мин";"Средняя"},ArrayFormula(IMPORTXML("http://www.meteocenter.asia/?m=e&p=28698","//table[@class='tab_z']//td[contains(text(),'"&Textjoin(" температура') or contains(text(),'",0,"Мин.","Макс.","Среднесуточная")&" температура')]/following-sibling::td[1]"))}})
[/vba][vba]
Код
=Transpose(Query(Arrayformula(iferror(--REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(?:(\d+)*\x0a.*)|\+","$1"),)),"select Col1, Min(Col4),Avg(Col4),Max(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура'"))
[/vba][vba]
Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING(Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","\/[^\d]|.*\–|[^\d\/:.]",""),)}),"Select max(Col2),Min(Col5),Avg(Col5),Max(Col5) group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba]

Автор - krosav4ig
Дата добавления - 03.05.2020 в 04:03
terat Дата: Воскресенье, 03.05.2020, 05:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо!
По последней формуле, не понятно. Нужно что-то до настроить? Не могу понять.
Ошибка:
Цитата
В литерале массива, указанном в функции ARRAY_LITERAL, отсутствуют значения одной или нескольких строк.
 
Ответить
СообщениеСпасибо!
По последней формуле, не понятно. Нужно что-то до настроить? Не могу понять.
Ошибка:
Цитата
В литерале массива, указанном в функции ARRAY_LITERAL, отсутствуют значения одной или нескольких строк.

Автор - terat
Дата добавления - 03.05.2020 в 05:21
krosav4ig Дата: Воскресенье, 03.05.2020, 05:30 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
terat, Это все скрипт перевода формул виноват, заменил , на ;
Поместил тег vba, так вроде нормально отображается


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеterat, Это все скрипт перевода формул виноват, заменил , на ;
Поместил тег vba, так вроде нормально отображается

Автор - krosav4ig
Дата добавления - 03.05.2020 в 05:30
terat Дата: Понедельник, 04.05.2020, 18:59 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Есть еще пара моментов.

1. По последней формуле. Что-то с датой не так.
Вот так импортируется:
05.05.2020 05.06.2020 05.07.2020 05.08.2020 05.09.2020 05.10.2020 05.11.2020 05.12.2020 30.12.1899 30.12.1899

2. Как можно во втором и третьем случае отсортировать выборку так: максимальная, минимальная, средняя температура. Я имею ввиду порядок? от чего это зависит от данных на сайте или можно силами google docs это сделать?
 
Ответить
СообщениеЕсть еще пара моментов.

1. По последней формуле. Что-то с датой не так.
Вот так импортируется:
05.05.2020 05.06.2020 05.07.2020 05.08.2020 05.09.2020 05.10.2020 05.11.2020 05.12.2020 30.12.1899 30.12.1899

2. Как можно во втором и третьем случае отсортировать выборку так: максимальная, минимальная, средняя температура. Я имею ввиду порядок? от чего это зависит от данных на сайте или можно силами google docs это сделать?

Автор - terat
Дата добавления - 04.05.2020 в 18:59
krosav4ig Дата: Вторник, 05.05.2020, 02:40 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура' format Col1'dd.MM.YYYY'"))
[/vba][vba]
Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5) where Col1>0 group by Col1  label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура' format Col1'dd.MM.YYYY'"))
[/vba][vba]
Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5) where Col1>0 group by Col1  label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba]

Автор - krosav4ig
Дата добавления - 05.05.2020 в 02:40
terat Дата: Вторник, 05.05.2020, 19:04 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо!
Правда логику все равно не могу понять, на примере других ресурсов, с Select. От чего зависит?
к примеру вот еще https://omsk.nuipogoda.ru/погода-на-завтра, как можно отсеять пустые строки? Если идти по второму примеру, с смещением col1, то выводится дата в перемешку с бредом, хотя столбец следующий.
 
Ответить
СообщениеСпасибо!
Правда логику все равно не могу понять, на примере других ресурсов, с Select. От чего зависит?
к примеру вот еще https://omsk.nuipogoda.ru/погода-на-завтра, как можно отсеять пустые строки? Если идти по второму примеру, с смещением col1, то выводится дата в перемешку с бредом, хотя столбец следующий.

Автор - terat
Дата добавления - 05.05.2020 в 19:04
krosav4ig Дата: Вторник, 05.05.2020, 19:58 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
там внутри ячеек таблицы есть вложенные элементы (div, span , br) [vba]
Код
=Transpose(Query(ArrayFormula(--RegexReplace( ImportXML("https://omsk.nuipogoda.ru/погода-на-завтра","//table[@class='weather']//span[@class='ht']"),"[+°]","")),"select  date '"&text(today()+1,"yyyy-MM-dd")&"',min(Col1),max(Col1),avg(Col1)  group by date '"&text(today()+1,"yyyy-MM-dd")&"' label Min(Col1) 'Минимальная температура', Avg(Col1) 'Средняя температура',Max(Col1) 'Максимальная температура', date '"&text(today()+1,"yyyy-MM-dd")&"' 'Дата'  format date '"&text(today()+1,"yyyy-MM-dd")&"' 'dd.MM.YYYY'"))
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 05.05.2020, 20:00
 
Ответить
Сообщениетам внутри ячеек таблицы есть вложенные элементы (div, span , br) [vba]
Код
=Transpose(Query(ArrayFormula(--RegexReplace( ImportXML("https://omsk.nuipogoda.ru/погода-на-завтра","//table[@class='weather']//span[@class='ht']"),"[+°]","")),"select  date '"&text(today()+1,"yyyy-MM-dd")&"',min(Col1),max(Col1),avg(Col1)  group by date '"&text(today()+1,"yyyy-MM-dd")&"' label Min(Col1) 'Минимальная температура', Avg(Col1) 'Средняя температура',Max(Col1) 'Максимальная температура', date '"&text(today()+1,"yyyy-MM-dd")&"' 'Дата'  format date '"&text(today()+1,"yyyy-MM-dd")&"' 'dd.MM.YYYY'"))
[/vba]

Автор - krosav4ig
Дата добавления - 05.05.2020 в 19:58
terat Дата: Суббота, 16.05.2020, 16:31 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо! Помогло. Еще пара вопросов.

=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура' format Col1'dd.MM.YYYY'"))

=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5) where Col1>0 group by Col1  label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))


Допустим решил добавить еще 6 колонку (количество осадков), как правильно это сделать? добавляю после Avg(Col4), через запятую, выводится ошибка.

И как сделать вывод с такой таблицы возможно ли:
https://rp5.ru/Архив_погоды_в_Омске вывести за прошлый день
https://rp5.ru/Погода_в_Омске по тому же принципу но на 6 дней.

Здесь нет конкретной ссылки. По первой вообще возможно ли? Тут достаточно интересно выходит, дата на сегодня подставляется автоматически и выводится, а надо отнимать значение и переносится на прошлый день.

По второму варианту, таблицы расположены в разных табах (вкладках), нужно из "forecastTable" как правильно путь проложить до него?

Еще пример таблицы, от которой, чтобы получить ответ, нужно в запросе подготовить как-то какая область, город и период https://meteoinfo.ru/forecasts


Сообщение отредактировал terat - Суббота, 16.05.2020, 16:42
 
Ответить
СообщениеСпасибо! Помогло. Еще пара вопросов.

=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура' format Col1'dd.MM.YYYY'"))

=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5) where Col1>0 group by Col1  label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))


Допустим решил добавить еще 6 колонку (количество осадков), как правильно это сделать? добавляю после Avg(Col4), через запятую, выводится ошибка.

И как сделать вывод с такой таблицы возможно ли:
https://rp5.ru/Архив_погоды_в_Омске вывести за прошлый день
https://rp5.ru/Погода_в_Омске по тому же принципу но на 6 дней.

Здесь нет конкретной ссылки. По первой вообще возможно ли? Тут достаточно интересно выходит, дата на сегодня подставляется автоматически и выводится, а надо отнимать значение и переносится на прошлый день.

По второму варианту, таблицы расположены в разных табах (вкладках), нужно из "forecastTable" как правильно путь проложить до него?

Еще пример таблицы, от которой, чтобы получить ответ, нужно в запросе подготовить как-то какая область, город и период https://meteoinfo.ru/forecasts

Автор - terat
Дата добавления - 16.05.2020 в 16:31
krosav4ig Дата: Воскресенье, 17.05.2020, 14:48 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4),Avg(Col7) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура',Avg(Col7) 'Среднее количество осадков'  format Col1'dd.MM.YYYY'"))
[/vba]
[vba]
Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5),Avg(Col6) where Col1>0 group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура', Avg(Col6) 'Среднее количество осадков' format Max(Col2) 'dd.MM.YYYY'")))
[/vba]
[vba]
Код
=Transpose(Query(ArrayFormula({Int((Row(1:20)-1)/4)+Today(),(Array_Constrain(Split(Importxml("https://rp5.ru/Погода_в_Омске","(((//table[@id='forecastTable'])[1]/tr[.//*[contains(text(),'Температура')]]/td[starts-with(@class,'n ')])[1]/preceding-sibling::td)[last()]/following-sibling::td/div[@class='t_0']"),"+"),20,1))}),"Select Col1,Min(Col2),Max(Col2),Avg(Col2) group by Col1 label Col1 'Дата',Min(Col2) 'Минимальная температура', Avg(Col2) 'Средняя температура',Max(Col2) 'Максимальная температура' format Col1 'dd.MM.YYYY'"))
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 17.05.2020, 14:49
 
Ответить
Сообщение[vba]
Код
=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4),Avg(Col7) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура',Avg(Col7) 'Среднее количество осадков'  format Col1'dd.MM.YYYY'"))
[/vba]
[vba]
Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5),Avg(Col6) where Col1>0 group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура', Avg(Col6) 'Среднее количество осадков' format Max(Col2) 'dd.MM.YYYY'")))
[/vba]
[vba]
Код
=Transpose(Query(ArrayFormula({Int((Row(1:20)-1)/4)+Today(),(Array_Constrain(Split(Importxml("https://rp5.ru/Погода_в_Омске","(((//table[@id='forecastTable'])[1]/tr[.//*[contains(text(),'Температура')]]/td[starts-with(@class,'n ')])[1]/preceding-sibling::td)[last()]/following-sibling::td/div[@class='t_0']"),"+"),20,1))}),"Select Col1,Min(Col2),Max(Col2),Avg(Col2) group by Col1 label Col1 'Дата',Min(Col2) 'Минимальная температура', Avg(Col2) 'Средняя температура',Max(Col2) 'Максимальная температура' format Col1 'dd.MM.YYYY'"))
[/vba]

Автор - krosav4ig
Дата добавления - 17.05.2020 в 14:48
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Google Docs » Выборочный импорт данных (убрать лишние символы) (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!