Сравнение данных 3-х ячеек и вывод данных в 4-ую

@alyaska213 · Регистрация: 19.10.2015

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток! люди добрый помогите плиз составить расчет...
Пр: в 3 ячейках существуют числа...
A1=7; B1=4; C1=11
в D1 необходимо поставить условие таким образом,
чтоб при "A1<B1 и A1<C1" в D1 подставлялась '1',
при "A1<B1 и A1>C1; A1>B1 A1<C1" в D1 подставлялась '2',
при "A1>B1 и A1>C1" в D1 подставлялась '3'.

как составить 1 формулу с соблюдением всех параметров?

P.S. Я себе уже все волосы вырвал

@Казанский · 19.10.2015, 12:16

alyaska213, а в чем проблема? И при чем тут VBA?

Code
1
=ЕСЛИ(И(A1<B1;A1<C1);1;ЕСЛИ(ИЛИ(И(A1<B1;A1>C1);И(A1>B1;A1<C1));2;ЕСЛИ(И(A1>B1;A1>C1);3)))

Или так

Code
1
=(A1>B1)+(A1>C1)+1

@alyaska213 · 19.10.2015, 12:30 **[ТС]**

Спасибо огромное! VBA мимо глаз пролетело.
И я понял свой косяк...

@tam_tam · 22.03.2019, 08:44

Добрый день!
Помогите пожалуйста с формулой!!!
У меня похожие условия, сравниванием 3 ячейки, нужно выбрать одинаковые и вынести информацию в четвертую, если найдется 2 совпадения, в пятую - если 3 совпадения. Данные в ячейках от 1 до 9.
Благодарю!!!

@Казанский · 22.03.2019, 10:05

tam_tam, жаль, что файла-примера нет. Как понял, сравниваем А1, В1, С1.

Code
1
2
в D1: =ВЫБОР((A1=B1)+(A1=C1)+(B1=C1)+1;"";ЕСЛИ((A1=B1)+(A1=C1);A1;B1);;"")
в Е1: =ЕСЛИ((A1=C1)+(A1=C1)+(B1=C1)=3;A1;"")

@tam_tam · 22.03.2019, 10:51

Отлично!!! все работает!!!
Можно еще подключить данные из четвертой ячейки?
файл прицепом.

@Казанский · 22.03.2019, 22:53

tam_tam, среди 4 значений есть еще вариант 2+2, его как считать - как 2 или как отдельную категорию?
Вообще, одной формулой видимо не получится, надо использовать промежуточные столбцы или функцию VBA - Вас что больше устроит?

@tam_tam · 23.03.2019, 03:28

Про вариант 2+2 я тоже думала... а, что если вместо значения будет подставляться "Есть"? Возможно такое?
В принципе, устроит любое решение.

@Казанский · 23.03.2019, 13:24

Сообщение от tam_tam

устроит любое решение

Тогда просто вид комбинации, по покерной терминологии

Code
1
=ВЫБОР(ОКРУГЛ(СУММПРОИЗВ(1/СЧЁТЕСЛИ(A2:D2;A2:D2)););"каре";ЕСЛИ(СЧЁТЕСЛИ(A2:D2;МИН(A2:D2))=2;"две пары";"тройка");"пара";"-")

Формула основана на известной формуле для определения числа уникальных в диапазоне: {СУММ(1/СЧЁТЕСЛИ(диап;диап))}

@SpireStone · 22.09.2020, 19:21

Добрый день!
Абсолютно такая же проблема, но требующая решения через код VBA.
Имеется три столбца с набором данных, информацию требуется выводить в четвертый столбец.

Необходимо:
1. Если текст в ячейке столбца A совпадает с текстом в ячейке столбца B, а в соседней ячейке столбца С есть текст, то выводить в соседнюю ячейку столбца D "текст 1";
2. Если текст в ячейке столбца A совпадает с текстом в ячейке столбца B, а в соседней ячейке столбца С НЕТ текста, то выводить в соседнюю ячейку столбца D "текст 2";
3. Если текст в ячейке столбца A НЕ совпадает с текстом в ячейке столбца B, а в соседней ячейке столбца С есть текст, то выводить в соседнюю ячейку столбца D "текст 3";
4. Если текст в ячейке столбца A НЕ совпадает с текстом в ячейке столбца B, а в соседней ячейке столбца С НЕТ текста, то выводить в соседнюю ячейку столбца D "текст 4".

Буду очень признателен за помощь.
Спасибо

@SpireStone · 23.09.2020, 06:38

Написал примитивный цикл под вышеуказанную задачу, но он не работает...((

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Find_me_Click()
 
Dim i, j As Integer
Dim A, B, C As Variant
 
For i = 1 To 1000
 
A = Cells(2 + i, 2)
B = Cells(2 + i, 3)
    
    For j = 1 To 1000
    
C = Cells(2 + j, 5)
 
        If A = C And B <> "" Then
            Cells(2 + j, 6) = "Текст 1"
            Cells(2 + j, 6).Font.ColorIndex = 10
        
        ElseIf A = C And B = "" Then
            Cells(2 + j, 6) = "Текст 2"
            Cells(2 + j, 6).Font.ColorIndex = 11
 
        ElseIf A <> C And B <> "" Then
            Cells(2 + j, 6) = "Текст 3"
            Cells(2 + j, 6).Font.ColorIndex = 3
        
        ElseIf A <> C And B = "" Then
            Cells(2 + j, 6) = "Текст 4"
            Cells(2 + j, 6).Font.ColorIndex = 4
        End If
    Next j
Next i
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@alyaska213 0 / 0 / 0 Регистрация: 19.10.2015 Сообщений: 13

	Excel Сравнение данных 3-х ячеек и вывод данных в 4-ую 19.10.2015, 11:55. Показов 23614. Ответов 10 Метки нет (Все метки) Всем доброго времени суток! люди добрый помогите плиз составить расчет... Пр: в 3 ячейках существуют числа... A1=7; B1=4; C1=11 в D1 необходимо поставить условие таким образом, чтоб при "A1<B1 и A1<C1" в D1 подставлялась '1', при "A1<B1 и A1>C1; A1>B1 A1<C1" в D1 подставлялась '2', при "A1>B1 и A1>C1" в D1 подставлялась '3'. как составить 1 формулу с соблюдением всех параметров? P.S. Я себе уже все волосы вырвал 0

@alyaska213 0 / 0 / 0 Регистрация: 19.10.2015 Сообщений: 13
	19.10.2015, 12:30 [ТС]
	Спасибо огромное! VBA мимо глаз пролетело. И я понял свой косяк... 0

@tam_tam 0 / 0 / 0 Регистрация: 22.03.2019 Сообщений: 3
	22.03.2019, 08:44
	Добрый день! Помогите пожалуйста с формулой!!! У меня похожие условия, сравниванием 3 ячейки, нужно выбрать одинаковые и вынести информацию в четвертую, если найдется 2 совпадения, в пятую - если 3 совпадения. Данные в ячейках от 1 до 9. Благодарю!!! 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	22.03.2019, 22:53
	tam_tam, среди 4 значений есть еще вариант 2+2, его как считать - как 2 или как отдельную категорию? Вообще, одной формулой видимо не получится, надо использовать промежуточные столбцы или функцию VBA - Вас что больше устроит? 0

@tam_tam 0 / 0 / 0 Регистрация: 22.03.2019 Сообщений: 3
	23.03.2019, 03:28
	Про вариант 2+2 я тоже думала... а, что если вместо значения будет подставляться "Есть"? Возможно такое? В принципе, устроит любое решение. 0

@SpireStone 0 / 0 / 0 Регистрация: 22.09.2020 Сообщений: 2
	22.09.2020, 19:21
	Добрый день! Абсолютно такая же проблема, но требующая решения через код VBA. Имеется три столбца с набором данных, информацию требуется выводить в четвертый столбец. Необходимо: 1. Если текст в ячейке столбца A совпадает с текстом в ячейке столбца B, а в соседней ячейке столбца С есть текст, то выводить в соседнюю ячейку столбца D "текст 1"; 2. Если текст в ячейке столбца A совпадает с текстом в ячейке столбца B, а в соседней ячейке столбца С НЕТ текста, то выводить в соседнюю ячейку столбца D "текст 2"; 3. Если текст в ячейке столбца A НЕ совпадает с текстом в ячейке столбца B, а в соседней ячейке столбца С есть текст, то выводить в соседнюю ячейку столбца D "текст 3"; 4. Если текст в ячейке столбца A НЕ совпадает с текстом в ячейке столбца B, а в соседней ячейке столбца С НЕТ текста, то выводить в соседнюю ячейку столбца D "текст 4". Буду очень признателен за помощь. Спасибо 0

Сравнение данных 3-х ячеек и вывод данных в 4-ую

Решение