Увеличить количество столбцов и записать в выбранную ячейку

Добрый день,

Мне нужна помощь с небольшой проблемой. У меня есть макрос, который сравнивает ячейку с диапазоном ячеек. Если равная ячейка не найдена, она добавит ячейку в конец диапазона. Моя проблема в равной ячейке. Если он найдет это, мне нужно добавить 3 к индексу столбца и записать «X» в эту ячейку.

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

У меня это до сих пор:

Sub Compare() Dim i As Integer 'Comparing cell is from another workbook Selection.Copy Windows("zzz.xlsm").Activate Range("A2").Select ActiveSheet.Paste i = 2 Do While Cells(i, 3).Value <> "" Set FirstRange = Range("C" & i) If FirstRange.Value = Cells(2, 1).Value Then MsgBox "Found" Exit Do End If i = i + 1 Loop If MsgBox = True Then 'Missing code Else Range("A2").Select Selection.Copy ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(1).Select ActiveSheet.Paste End If End Sub 

Буду признателен за любые советы. Спасибо за ваше время.

 Sub Compare() Dim i As Integer 'Comparing cell is from another workbook Selection.Copy Windows("zzz.xlsm").Activate Range("A2").Select ActiveSheet.Paste i = 2 Do While Cells(i, 3).Value <> "" Set FirstRange = Range("C" & i) If FirstRange.Value = Cells(2, 1).Value Then MsgBox "Found" Exit Do End If i = i + 1 Loop If MsgBox = True Then Cells(i, 6) = "X" 'used to be Missing code Else Range("A2").Select Selection.Copy ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(1).Select ActiveSheet.Paste End If End Sub 
Interesting Posts

VBA объединяет несмежные ячейки, содержащие один и тот же текст в Excel

EXCEL 2007 – нужна помощь в создании кнопки, которая отображает содержимое активного листа и вставляет его в новый рабочий лист

Как получить изображения с именами из файла xls с помощью Apache POI

Объединение двух таблиц в последнюю строку

Поиск и замена нескольких символов в Excel с помощью VBscript

VBA EXCEL – Если предложение, исключающее значения

EPPlus / Как получить данные из сводной таблицы? Или как легко манипулировать данными?

Перетащите формулу вниз с изменениями строки другим интервалом, отличным от одного

Минимизированное окно сообщения в VB

CSV действует в Excel лучше, чем в Sublime / C #

Откройте файл шаблона .xlt как .xltx или xlsx

Сложная заявка countifs, использующая дату

Как открыть второе поле ввода, за которым следует другое поле ввода Excel VBA

Excel: создание динамической таблицы из именованного диапазона на другом листе

выберите строку на основе условия excel

Давайте будем гением компьютера.