Сравнение двух столбцов по нескольким критериям

@LeoNeon · Регистрация: 23.11.2013

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

Добрый день.
Очень надеюсь на Вашу помощь. Есть два диапазона данных (эти данные могут быть как числовые, так и текстовые). Мне нужно сравнить два диапазона, выявить одинаковые значения, а также значения, которых нет ни в одном из диапазонов. Так же хотелось бы задавать значения "от" и "до" и диапазоны №1 и №2.
Заранее спасибо Вам!!!

@LeoNeon · 21.07.2014, 19:31 **[ТС]**

Вроде с задачей разобрался, но не могу понять, как задавать "от" и "до", не исправляя сам код макроса вручную. Подскажите, а вообще возможно ли такое?

Аксима · 21.07.2014, 23:07

LeoNeon, предлагаю следующее решение задачи:

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
Sub ColumnsCompare()
    Dim criteria As String, low As Long, high As Long, arr As Variant
    Dim i As Long, j As Long, n As Long, msg As String
    'Определяем диапазон "от..до"
    criteria = Range("D2")
    low = Split(criteria)(2)
    high = Split(criteria)(4)
    ReDim diap(low To high) As Long
    'Определяем, какие числа из сравниваемых столбцов
    'входят/не входят в этот диапазон.
    arr = Range("A2:B8")
    For i = 1 To UBound(arr)
        For j = 1 To 2
            diap(arr(i, j)) = diap(arr(i, j)) Or j
        Next j
    Next i
    'Выводим результаты анализа.
    For i = low To high
        If diap(i) = 0& Then msg = msg & "," & i
    Next i
    Range("A10") = "В выделенных столбцах нет" & Replace(msg, ",", " ", , 1)
    msg = ""
    For i = low To high
        If diap(i) = 3& Then msg = msg & "," & i
    Next i
    Range("A11") = Replace(msg, ",", "", , 1) & " есть в обоих столбцах"
End Sub

Способ задания "от" и "до" вы можете подсмотреть в части кода после первого комментария (Определяем диапазон "от..до")

С уважением,

Aksima

@LeoNeon · 22.07.2014, 18:57 **[ТС]**

Aksima, Спасибо Вам за внимание! Но при запуске макроса выдается ошибка "run-time error "9": subscript out of range" на строке:

Code
1
    low = Split(criteria)(2)

Аксима · 22.07.2014, 22:41

LeoNeon, я тестировал программу на файле, который вы выложили в первом посте. У меня все было нормально.
Если вы вносили в этот файл какие-то изменения, выложите измененный файл.

С уважением,

Aksima

@LeoNeon · 22.07.2014, 23:34 **[ТС]**

Aksima, да, простите, всё работает. Просто у меня куча файлов-примеров и не туда вставил Ваш код.
Еще раз прошу извинить меня.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 09.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 31.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .

@LeoNeon 0 / 0 / 0 Регистрация: 23.11.2013 Сообщений: 9
	21.07.2014, 19:31 [ТС]
	Вроде с задачей разобрался, но не могу понять, как задавать "от" и "до", не исправляя сам код макроса вручную. Подскажите, а вообще возможно ли такое? 0

Аксима 6082 / 1327 / 195 Регистрация: 12.12.2012 Сообщений: 1,023
	22.07.2014, 22:41
	LeoNeon, я тестировал программу на файле, который вы выложили в первом посте. У меня все было нормально. Если вы вносили в этот файл какие-то изменения, выложите измененный файл. С уважением, Aksima 1

@LeoNeon 0 / 0 / 0 Регистрация: 23.11.2013 Сообщений: 9
	22.07.2014, 23:34 [ТС]
	Aksima, да, простите, всё работает. Просто у меня куча файлов-примеров и не туда вставил Ваш код. Еще раз прошу извинить меня. 0