Направляя свою заявку и иные персональные данные по указанным на сайте электронным адресам и телефонам, я даю своё
согласие на обработку персональных данных.
Технологии
Искусственный интеллект уже давно перестал быть чем-то из будущего. Сегодня он помогает нам в работе, учёбе и повседневной жизни — стоит только правильно задать вопрос. В этой статье мы собрали самые полезные запросы к ИИ, которые действительно работают: экономят время, дают чёткие ответы и помогают находить нестандартные решения. Если вы всё ещё используете ИИ только для «приколов», самое время пересмотреть подход.
Напиши формулу которая объединяет значения в столбца от F до L, в столбец M разделяя ";"
=F1 & ";" & G1 & ";" & H1 & ";" & I1 & ";" & J1 & ";" & K1 & ";" & L1
Напиши формулу которая будет удалять из столбца m значение "+7 900 555-11-22" и записывать в столбец N
пример до: (10:08 27.06.2025) +7 900 555-11-22: Добрый день !;(10:09 27.06.2025) +7 900 555-11-22: Какая там претензия подскажите пожалуйста И сумма ?;;;;;
после: (10:08 27.06.2025) : Добрый день !;(10:09 27.06.2025) : Какая там претензия подскажите пожалуйста И сумма ?;;;;;
=ПОДСТАВИТЬ(M1;"+7 900 555-11-22";"")
Напиши макрос, который будет сравнивать значения столбца A листа m_sent со значениями столбца E листа resultat, если значения совпадают то в столбец I листа m_sent записываются данные из столбца N листа resultat
Sub ПеренестиЗначения()
Dim wsSent As Worksheet
Dim wsResult As Worksheet
Dim lastRowSent As Long
Dim lastRowResult As Long
Dim i As Long, j As Long
Dim valSent As String
Dim valResult As String
' Устанавливаем ссылки на листы
Set wsSent = ThisWorkbook.Sheets("m_sent")
Set wsResult = ThisWorkbook.Sheets("resultat")
' Последние строки
lastRowSent = wsSent.Cells(wsSent.Rows.Count, "A").End(xlUp).Row
lastRowResult = wsResult.Cells(wsResult.Rows.Count, "E").End(xlUp).Row
' Проход по строкам m_sent
For i = 2 To lastRowSent
valSent = Trim(wsSent.Cells(i, "A").Value)
' Поиск совпадения в resultat
For j = 2 To lastRowResult
valResult = Trim(wsResult.Cells(j, "E").Value)
If valSent <> "" And valSent = valResult Then
wsSent.Cells(i, "I").Value = wsResult.Cells(j, "N").Value
Exit For ' найдено — выходим из внутреннего цикла
End If
Next j
Next i
MsgBox "Готово! Совпадения перенесены."
End Sub
Напиши формулу которая считает сколько раз в столбце E повторяется 30.06.25
=СЧЁТЕСЛИ(E:E;"30.06.2025")
Вот у меня есть такая формулу =N1*5,5 и значение получается такое 1 777 ₽ как округлять до 1 800 ₽, если бы было допустим 1 730 ₽ то округление до 1 750 ₽
=ОКРУГЛВВЕРХ(N1*5,5/50;0)*50
Напиши формулу которая дастанет значения до первого пробела в ячейки r2
=ЛЕВСИМВ(R2;НАЙТИ(" ";R2)-1)
Напиши формулу которая заменят первую цифру 8 на 7 в ячекйки r2
=ПОДСТАВИТЬ(R2;"8";"7";1)
Напиши макрос который будет сравнивать значения столбца P на листе s_finish_1, со значением в столбце A на листе checkwa, если значения совпадают то на листе s_finish_1 в столбец Z записывается Есть аккаунт
Sub CheckAccounts()
Dim wsFinish As Worksheet
Dim wsCheck As Worksheet
Dim lastRowFinish As Long
Dim lastRowCheck As Long
Dim dict As Object
Dim i As Long
Dim val As Variant
' Устанавливаем ссылки на листы
Set wsFinish = ThisWorkbook.Sheets("s_finish_1")
Set wsCheck = ThisWorkbook.Sheets("checkwa")
' Создаем словарь для хранения значений из checkwa
Set dict = CreateObject("Scripting.Dictionary")
' Находим последнюю строку в checkwa по столбцу A
lastRowCheck = wsCheck.Cells(wsCheck.Rows.Count, "A").End(xlUp).Row
' Заполняем словарь значениями из столбца A
For i = 2 To lastRowCheck ' пропускаем заголовок, если есть
val = Trim(wsCheck.Cells(i, "A").Value)
If Len(val) > 0 Then
dict(val) = True
End If
Next i
' Находим последнюю строку в s_finish_1 по столбцу P
lastRowFinish = wsFinish.Cells(wsFinish.Rows.Count, "P").End(xlUp).Row
' Сравниваем значения и записываем результат
For i = 2 To lastRowFinish ' пропускаем заголовок, если есть
val = Trim(wsFinish.Cells(i, "P").Value)
If dict.exists(val) Then
wsFinish.Cells(i, "Z").Value = "Есть аккаунт"
End If
Next i
MsgBox "Проверка завершена.", vbInformation
End Sub
Напиши формулу что бы она оставляла значения из столбца D только такое которон находиться до второго пробела после "д."
пример до: Челябинск ул. Братьев Кашириных д. 165 помещение 2
после: Челябинск ул. Братьев Кашириных д. 165
=ЛЕВСИМВ(D2; НАЙТИ("д."; D2) + НАЙТИ(" "; ПСТР(D2; НАЙТИ("д."; D2); 100)) + НАЙТИ(" "; ПСТР(D2; НАЙТИ("д."; D2) + НАЙТИ(" "; ПСТР(D2; НАЙТИ("д."; D2); 100)); 100)) - 2)
Напиши формулу для exel на русском которая из столбца k дастанит значения после второй запятой
пример до: 121108, г. Москва, Рублёвское шоссе, д. 1
после: Рублёвское шоссе, д. 1
=ПСТР(K1; НАЙТИ(", ";K1;НАЙТИ(", ";K1)+1)+2; ДЛСТР(K1))
Напиши формулу чтобы достаёт все после " г. "
пример до: 188800, Ленинградская область, Выборгский район, г. Выборг, пр-кт Ленинградский, д. 29/2, кв. 3
после: Выборг, пр-кт Ленинградский, д. 29/2, кв. 3
=ПСТР(K1; НАЙТИ("г. "; K1) + 3; ДЛСТР(K1))
Напиши формулу для exel которая будет записвать мобильный если значение в столбце ae начинается с 79
=ЕСЛИ(ЛЕВСИМВ(AE1;2)="79";"мобильный";"")
Напиши формулу для exel которая будет считать сколько раз повторяется "22.05.2025" на листе m_sent в столбце AA
=СЧЁТЕСЛИ(m_sent!AA:AA;"22.05.2025")
Напиши формулу чтобы первую тысячу значения было 1000 вторую тысячу 2000 и т.д.
=ОКРУГЛВВЕРХ(СТРОКА()/1000; 0) * 1000
Напиши три формулы которые достанут из ячейки c2 в exel значение
1. до первого пробела или до конца ячейки
2. после первого и до второго пробела или до конца ячейки
3. после второго пробела и до третьего пробела или до конца ячейки
1. До первого пробела (или до конца, если пробела нет):
=ЕСЛИОШИБКА(ЛЕВСИМВ(C2;НАЙТИ(" ";C2)-1);C2)
2. Между первым и вторым пробелом (или до конца, если второго нет):
=ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(C2;НАЙТИ(" ";C2)+1;НАЙТИ(" ";C2&" ";НАЙТИ(" ";C2)+1)-НАЙТИ(" ";C2)-1));"")
3. Между вторым и третьим пробелом (или до конца, если третьего нет):
=ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(C2;НАЙТИ(" ";C2;НАЙТИ(" ";C2)+1)+1;НАЙТИ(" ";C2&" ";НАЙТИ(" ";C2;НАЙТИ(" ";C2)+1)+1)-НАЙТИ(" ";C2;НАЙТИ(" ";C2)+1)-1));"")
