Формулой вытащить и разместить информацию о заказанных товар
kepkst1551
Дата: Вторник, 07.03.2023, 06:48 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Доброго времени суток. Прошу помощи. Нужно с помощью формул вытащить из диапазона ячеек D4:D18 и разместить в ячейке B27 информацию о заказанных товарах таким образом: краткое наименование товара&знак=&количество товара&два пробела. Надеюсь на вашу помощь.
Доброго времени суток. Прошу помощи. Нужно с помощью формул вытащить из диапазона ячеек D4:D18 и разместить в ячейке B27 информацию о заказанных товарах таким образом: краткое наименование товара&знак=&количество товара&два пробела. Надеюсь на вашу помощь. kepkst1551
Сообщение отредактировал kepkst1551 - Вторник, 07.03.2023, 06:49
Ответить
Сообщение Доброго времени суток. Прошу помощи. Нужно с помощью формул вытащить из диапазона ячеек D4:D18 и разместить в ячейке B27 информацию о заказанных товарах таким образом: краткое наименование товара&знак=&количество товара&два пробела. Надеюсь на вашу помощь. Автор - kepkst1551 Дата добавления - 07.03.2023 в 06:48
bigor
Дата: Вторник, 07.03.2023, 08:15 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1382
Репутация:
270
±
Замечаний:
0% ±
нет
Доброе утро Для "свежих" офисов можно так
=ОБЪЕДИНИТЬ(" ";1;D4:D18 &"="&F4:F18 )
массивная
Доброе утро Для "свежих" офисов можно так
=ОБЪЕДИНИТЬ(" ";1;D4:D18 &"="&F4:F18 )
массивная bigor
Сообщение отредактировал bigor - Вторник, 07.03.2023, 08:17
Ответить
Сообщение Доброе утро Для "свежих" офисов можно так
=ОБЪЕДИНИТЬ(" ";1;D4:D18 &"="&F4:F18 )
массивная Автор - bigor Дата добавления - 07.03.2023 в 08:15
DrMini
Дата: Вторник, 07.03.2023, 08:34 |
Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2060
Репутация:
320
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
kepkst1551 , Доброе утро. Вариант с доп. столбцом.
kepkst1551 , Доброе утро. Вариант с доп. столбцом.DrMini
Ответить
Сообщение kepkst1551 , Доброе утро. Вариант с доп. столбцом.Автор - DrMini Дата добавления - 07.03.2023 в 08:34
elovkov
Дата: Вторник, 07.03.2023, 09:58 |
Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 502
Репутация:
83
±
Замечаний:
0% ±
Excel 2013
TEXTJOIN
Эх, надо на более новый офис переходить как-то, а в конторе 13й(((
TEXTJOIN
Эх, надо на более новый офис переходить как-то, а в конторе 13й(((elovkov
Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица
Ответить
Сообщение
TEXTJOIN
Эх, надо на более новый офис переходить как-то, а в конторе 13й(((Автор - elovkov Дата добавления - 07.03.2023 в 09:58
Nic70y
Дата: Вторник, 07.03.2023, 10:16 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9145
Репутация:
2416
±
Замечаний:
0% ±
Excel 2010
доп.столбец
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4 ));"";"D");)
а может так
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";)
рез.
=G4
доп.столбец
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4 ));"";"D");)
а может так
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";)
рез.
=G4
Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Вторник, 07.03.2023, 10:20
Ответить
Сообщение доп.столбец
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4 ));"";"D");)
а может так
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";)
рез.
=G4
Автор - Nic70y Дата добавления - 07.03.2023 в 10:16
китин
Дата: Вторник, 07.03.2023, 10:16 |
Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
PQ всемогущий
let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
#"Вставлено: объединенный столбец" = Table.AddColumn(Источник, "Сведено" , each Text.Combine({[Наименование товара] , Text.From([количество] , "ru-RU" )}, "=" ), type text),
#"Обрезанный текст" = Table.TransformColumns(#"Вставлено: объединенный столбец" ,{{"Сведено" , Text.Trim, type text}}),
#"Удаленные столбцы1" = Table.RemoveColumns(#"Обрезанный текст" ,{"Наименование товара" , "количество" , "Столбец1" }),
#"Транспонированная таблица" = Table.Transpose(#"Удаленные столбцы1" ),
#"Объединенные столбцы" = Table.CombineColumns(#"Транспонированная таблица" ,{"Column1" , "Column2" , "Column3" , "Column4" , "Column5" , "Column6" , "Column7" , "Column8" , "Column9" , "Column10" , "Column11" , "Column12" , "Column13" , "Column14" , "Column15" },Combiner.CombineTextByDelimiter(" " , QuoteStyle.None),"Сведено" ),
#"Переименованные столбцы" = Table.RenameColumns(#"Объединенные столбцы" ,{{"Сведено" , "списание" }})
in
#"Переименованные столбцы"
PQ всемогущий
let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
#"Вставлено: объединенный столбец" = Table.AddColumn(Источник, "Сведено" , each Text.Combine({[Наименование товара] , Text.From([количество] , "ru-RU" )}, "=" ), type text),
#"Обрезанный текст" = Table.TransformColumns(#"Вставлено: объединенный столбец" ,{{"Сведено" , Text.Trim, type text}}),
#"Удаленные столбцы1" = Table.RemoveColumns(#"Обрезанный текст" ,{"Наименование товара" , "количество" , "Столбец1" }),
#"Транспонированная таблица" = Table.Transpose(#"Удаленные столбцы1" ),
#"Объединенные столбцы" = Table.CombineColumns(#"Транспонированная таблица" ,{"Column1" , "Column2" , "Column3" , "Column4" , "Column5" , "Column6" , "Column7" , "Column8" , "Column9" , "Column10" , "Column11" , "Column12" , "Column13" , "Column14" , "Column15" },Combiner.CombineTextByDelimiter(" " , QuoteStyle.None),"Сведено" ),
#"Переименованные столбцы" = Table.RenameColumns(#"Объединенные столбцы" ,{{"Сведено" , "списание" }})
in
#"Переименованные столбцы"
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение PQ всемогущий
[vba]
let Источник = Excel.CurrentWorkbook(){[Name ="Таблица1"]}[Content ]; Источник "Вставлено: объединенный столбец" = Тable.AddColumn(each ; "Сведено"; Наименование Тext.Combine({[товара количество ]; Тext.From([type ]; "ru-RU")}; "="); text Text.Trim ); type "Обрезанный текст" = Тable.TransformColumns(text "Вставлено: объединенный столбец";{{"Сведено"; QuoteStyle.None ; in undefined}}); undefined"Удаленные столбцы1" = Тable.RemoveColumns(undefined"Обрезанный текст";{"Наименование товара"; "количество"; "Столбец1"}); undefined"Транспонированная таблица" = Тable.Transpose(undefined"Удаленные столбцы1"); undefined"Объединенные столбцы" = Тable.CombineColumns(undefined"Транспонированная таблица";{"Column1"; "Column2"; "Column3"; "Column4"; "Column5"; "Column6"; "Column7"; "Column8"; "Column9"; "Column10"; "Column11"; "Column12"; "Column13"; "Column14"; "Column15"};Combiner.CombineТextByDelimiter(" "; undefined);"Сведено"); undefined"Переименованные столбцы" = Тable.RenameColumns(undefined"Объединенные столбцы";{{"Сведено"; "списание"}})undefined undefined"Переименованные столбцы"
[/vba]
Автор - китин Дата добавления - 07.03.2023 в 10:16
kepkst1551
Дата: Среда, 08.03.2023, 07:31 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
=ОБЪЕДИНИТЬ(" ";1;D4:D18&"="&F4:F18)
Ошибка #ЗНАЧ! Версия офиса: 16.61.1
=ОБЪЕДИНИТЬ(" ";1;D4:D18&"="&F4:F18)
Ошибка #ЗНАЧ! Версия офиса: 16.61.1kepkst1551
Ответить
Сообщение =ОБЪЕДИНИТЬ(" ";1;D4:D18&"="&F4:F18)
Ошибка #ЗНАЧ! Версия офиса: 16.61.1Автор - kepkst1551 Дата добавления - 08.03.2023 в 07:31
DrMini
Дата: Среда, 08.03.2023, 08:16 |
Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2060
Репутация:
320
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Попробуйте так:
=ОБЪЕДИНИТЬ(" ";1;D4:D18 ;"=";F4:F18 )
Попробуйте так:
=ОБЪЕДИНИТЬ(" ";1;D4:D18 ;"=";F4:F18 )
DrMini
Ответить
Сообщение Попробуйте так:
=ОБЪЕДИНИТЬ(" ";1;D4:D18 ;"=";F4:F18 )
Автор - DrMini Дата добавления - 08.03.2023 в 08:16
kepkst1551
Дата: Среда, 08.03.2023, 09:07 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
=ОБЪЕДИНИТЬ(" ";1;D4:D18;"=";F4:F18)
Ошибки больше нет, но результат сильно отличен от необходимого. Формулу массива тоже пробовал.
=ОБЪЕДИНИТЬ(" ";1;D4:D18;"=";F4:F18)
Ошибки больше нет, но результат сильно отличен от необходимого. Формулу массива тоже пробовал.kepkst1551
Сообщение отредактировал kepkst1551 - Среда, 08.03.2023, 09:11
Ответить
Сообщение =ОБЪЕДИНИТЬ(" ";1;D4:D18;"=";F4:F18)
Ошибки больше нет, но результат сильно отличен от необходимого. Формулу массива тоже пробовал.Автор - kepkst1551 Дата добавления - 08.03.2023 в 09:07
kepkst1551
Дата: Среда, 08.03.2023, 09:16 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Nic70y , сё отлично работает. Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку. Возможно ли не учитывать пустые сроки в столбце D?
Nic70y , сё отлично работает. Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку. Возможно ли не учитывать пустые сроки в столбце D?kepkst1551
Сообщение отредактировал Serge_007 - Четверг, 09.03.2023, 09:05
Ответить
Сообщение Nic70y , сё отлично работает. Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку. Возможно ли не учитывать пустые сроки в столбце D?Автор - kepkst1551 Дата добавления - 08.03.2023 в 09:16
DrMini
Дата: Среда, 08.03.2023, 10:00 |
Сообщение № 11
Группа: Модераторы
Ранг: Старожил
Сообщений: 2060
Репутация:
320
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку.
А если вот так:
=ЕСЛИОШИБКА(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4 ));"";"D"););"")
Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку.
А если вот так:
=ЕСЛИОШИБКА(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4 ));"";"D"););"")
DrMini
Ответить
Сообщение Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку.
А если вот так:
=ЕСЛИОШИБКА(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4 ;ЕСЛИОШИБКА(ПОИСК("`";D4 );ПОИСК("(";D4 ))-1))&"="&F4 &ЕСЛИ(G5 ="";"";" "&G5 );"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4 ));"";"D"););"")
Автор - DrMini Дата добавления - 08.03.2023 в 10:00
прохожий2019
Дата: Среда, 08.03.2023, 10:19 |
Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 1401
Репутация:
365
±
Замечаний:
0% ±
365 Beta Channel
let
from = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
f=(x)=>Text.Format("#{0}=#{1} " ,{Text.Split(x{0}," " ){1},x{2}}),
to = Text.Combine(Table.ToList(from,f))
in
to
UPD с пустыми и без миллиметров так:
let
from = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
sel = Table.SelectRows(from,(i)=>i[Наименование товара] <>null),
f=(x)=>Text.Format("#{0}=#{1} " ,{Text.SplitAny(x{0}," m" ){1},x{2}}),
to = Text.Combine(Table.ToList(sel,f))
in
to
let
from = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
f=(x)=>Text.Format("#{0}=#{1} " ,{Text.Split(x{0}," " ){1},x{2}}),
to = Text.Combine(Table.ToList(from,f))
in
to
UPD с пустыми и без миллиметров так:
let
from = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
sel = Table.SelectRows(from,(i)=>i[Наименование товара] <>null),
f=(x)=>Text.Format("#{0}=#{1} " ,{Text.SplitAny(x{0}," m" ){1},x{2}}),
to = Text.Combine(Table.ToList(sel,f))
in
to
прохожий2019
Сообщение отредактировал прохожий2019 - Среда, 08.03.2023, 11:16
Ответить
Сообщение [vba]
let from = Excel.CurrentWorkbook(){[Name ="Таблица1"]}[Content ]; f =(x )=>Тext.Format("#{0}=#{1} ";{Тext.Split(x {0};" "){1};x {2}}); to = Тext.Combine(Тable.ToList(from ;f ))in to
[/vba]UPD с пустыми и без миллиметров так: [vba]
let from = Excel.CurrentWorkbook(){[Name ="Таблица1"]}[Content ]; sel = Тable.SelectRows(from ;(i )=>i [Наименование товара ]<>null ); f =(x )=>Тext.Format("#{0}=#{1} ";{Тext.SplitAny(x {0};" m"){1};x {2}}); to = Тext.Combine(Тable.ToList(sel ;f ))in to
[/vba] Автор - прохожий2019 Дата добавления - 08.03.2023 в 10:19
bigorq
Дата: Среда, 08.03.2023, 10:36 |
Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 205
Репутация:
47
±
Замечаний:
0% ±
Нет
kepkst1551 , попробуйте
=ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18 );"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18 )
массивная Написали бы сразу, что наименование краткое, это не все что в столбце наименование
kepkst1551 , попробуйте
=ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18 );"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18 )
массивная Написали бы сразу, что наименование краткое, это не все что в столбце наименованиеbigorq
Ответить
Сообщение kepkst1551 , попробуйте
=ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18 );"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18 )
массивная Написали бы сразу, что наименование краткое, это не все что в столбце наименованиеАвтор - bigorq Дата добавления - 08.03.2023 в 10:36
kepkst1551
Дата: Среда, 08.03.2023, 11:37 |
Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
bigorq , cамое изящное решение. Но, одно маленькое но: если в перечне товаров в столбце D встречается пустая строка, то в ячейке результа мы получаем в этом месте знак "=" (он,как бы остаётся). Возможно ли избавиться от этого эффекта?
bigorq , cамое изящное решение. Но, одно маленькое но: если в перечне товаров в столбце D встречается пустая строка, то в ячейке результа мы получаем в этом месте знак "=" (он,как бы остаётся). Возможно ли избавиться от этого эффекта?kepkst1551
Сообщение отредактировал Serge_007 - Четверг, 09.03.2023, 09:05
Ответить
Сообщение bigorq , cамое изящное решение. Но, одно маленькое но: если в перечне товаров в столбце D встречается пустая строка, то в ячейке результа мы получаем в этом месте знак "=" (он,как бы остаётся). Возможно ли избавиться от этого эффекта?Автор - kepkst1551 Дата добавления - 08.03.2023 в 11:37
bigorq
Дата: Среда, 08.03.2023, 14:01 |
Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 205
Репутация:
47
±
Замечаний:
0% ±
Нет
Возможно ли избавиться от этого эффекта?
можно
=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18 );"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18 );" =";"")
Возможно ли избавиться от этого эффекта?
можно
=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18 );"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18 );" =";"")
bigorq
Ответить
Сообщение Возможно ли избавиться от этого эффекта?
можно
=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18 );"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18 );" =";"")
Автор - bigorq Дата добавления - 08.03.2023 в 14:01
kepkst1551
Дата: Четверг, 09.03.2023, 10:37 |
Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Всех душевно благодарю. Попробовал все варианты. Остановился на=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18);"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18);" =";"")
Мой респект и уважение мастеру!
Всех душевно благодарю. Попробовал все варианты. Остановился на=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18);"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18);" =";"")
Мой респект и уважение мастеру! kepkst1551
Ответить
Сообщение Всех душевно благодарю. Попробовал все варианты. Остановился на=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(" ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18);"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18);" =";"")
Мой респект и уважение мастеру! Автор - kepkst1551 Дата добавления - 09.03.2023 в 10:37