Сравнение ячейки со столбцом в Excel

@hil25cm · Регистрация: 26.07.2013

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

на листе "Сводка" в столбце "А" номенклатуры товара, который есть в принципе. на листе "Foto" в столбце "А" номенклатуры товара, фото которого есть. мне нежна программа, которая берет значение ячейки из столбца "А" на листе "Сводка", сравнивает с содержимым ячеек столбца "А" на листе "Foto" и если совпадение есть, то на листе "Сводка" в столбце "Е" ставит отметку "Есть", если совпадений нет - то ставит отметку "Нет"

работал с vba очень давно, многое забыл((

вот что написал

Visual Basic

For j = 2 To 10000
If Sheets("Сводка").Range("Aj") = Sheets("Foto").Range("A2:A12000") Then
Worksheets("Сводка").Range("Ej") = "Есть"
Else: Worksheets("Ñâîäêà").Range("Ej") = "Нет"
End If
Next j

@Hugo121 · 26.07.2013, 12:15

Ячейку со столбцом так не сравните.
Но в любом случае ошибка уже здесь: Range("Aj")
Пишите

Visual Basic

1	Range("A" & j)

Я бы использовал словарь - сперва загнал в него все значения диапазона (1 проход), затем за один проход по другому диапазону проверил наличие значений в словаре.
И перебирал не ячейки, а массив значений ячеек.

@hil25cm · 26.07.2013, 13:06 **[ТС]**

спасибо, сейчас попрбую

Добавлено через 28 минут
не разобрался со словарем, реализовал следующим образом

Visual Basic

For j = 2 To 10000
    
    For i = 2 To 1690
    
        If Sheets("Сводка").Range("A" & j) = Sheets("Foto").Range("A" & i) Then
        Worksheets("Сводка").Range("E" & j) = "Есть"
        j = j + 1
        Else: Worksheets("Сводка").Range("E" & j) = "Нет"
        End If
        
    Next i
        
Next j

@Hugo121 · 26.07.2013, 18:11

На таком объёме со словарём и массивами отработало бы за секунду или быстрее.
Был бы файл - написал бы код.

@hil25cm · 26.07.2013, 22:10 **[ТС]**

не могу отправить файл, так как он весит более 2 метров. на данном этапе 2-5 мин обработки одного запроса - допустимо. как уже говорил, программированием на vba не занимался со студенчества, поэтому вспомнить как это делается - вопрос времени. я и обратился за помощью только из-за того, что нужно было до вечера выдать хоть какой-то результат. к тому же погода не располагает к прогулкам и отдыху на берегу моря, буду читать умную книгу по программированию и серфить инет) в любом случае, Hugo121 - спасибо, вот это помогло)))

Visual Basic

'Но в любом случае ошибка уже здесь: Range("Aj")
'Пишите
'Код Visual Basic
'1
'Range("A" & j)

@Hugo121 · 26.07.2013, 22:19

Свежие словарь-массивы тут рядом:
Написание сложного макроса
В общем там задача аналогичная и даже чуть сложнее.

Добавлено через 5 минут
Вообще это вполне делается формулами - комбинацией ЕСЛИ() и СЧЕТЕСЛИ() или ПОИСКПОЗ() или даже банальной ВПР() (перечитал описание задачи, не концентрировался на "программа"

)

@hil25cm · 27.07.2013, 16:36 **[ТС]**

тут загвоздка в том, что это только часть программы. далее мне требуется найти совпадение по номенклатуре, и если совпадение есть, то вставить название товара, который расположен на 2 ячейки правее, вот код который я написал и который медленно, но работает)

Visual Basic

Private Sub CommandButton3_Click()
 
For j = 2 To 1100
    
    For i = 2 To 10100
    
        If Sheets("Сводка").Range("A" & j) = Sheets("Россия").Range("G" & i) Then
        Worksheets("Сводка").Range("C" & j) = Sheets("Россия").Range("F" & i)
        
        End If
        
    Next i
        
Next j
 
End Sub

@Hugo121 · 27.07.2013, 21:20

Ну тогда ВПР() или тот же словарь-массивы...
Кстати, можно ВПР() протянуть макросом, затем макросм же заменить формулы на значения. Всё будет намного (в сотни раз) быстрее чем 1099*10099 раз перебирать ячейки.

@Pavel55 · 27.07.2013, 21:31

блин, не заметил тему двойника и отписался тут

Сравнение данных столбцов

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@Hugo121 6975 / 2876 / 552 Регистрация: 19.10.2012 Сообщений: 8,764
	26.07.2013, 18:11	4
	На таком объёме со словарём и массивами отработало бы за секунду или быстрее. Был бы файл - написал бы код. 0

@Hugo121 6975 / 2876 / 552 Регистрация: 19.10.2012 Сообщений: 8,764
	26.07.2013, 22:19	6
	Свежие словарь-массивы тут рядом: Написание сложного макроса В общем там задача аналогичная и даже чуть сложнее. Добавлено через 5 минут Вообще это вполне делается формулами - комбинацией ЕСЛИ() и СЧЕТЕСЛИ() или ПОИСКПОЗ() или даже банальной ВПР() (перечитал описание задачи, не концентрировался на "программа" ) 0

@Hugo121 6975 / 2876 / 552 Регистрация: 19.10.2012 Сообщений: 8,764
	27.07.2013, 21:20	8
	Ну тогда ВПР() или тот же словарь-массивы... Кстати, можно ВПР() протянуть макросом, затем макросм же заменить формулы на значения. Всё будет намного (в сотни раз) быстрее чем 1099*10099 раз перебирать ячейки. 0

@Pavel55 997 / 356 / 135 Регистрация: 27.10.2006 Сообщений: 764
	27.07.2013, 21:31	9
	блин, не заметил тему двойника и отписался тут Сравнение данных столбцов 0