Поиск повторяющихся значений в Excel путем сравнения данных в двух столбцах

Posted by obzor under Basic, VBA, Софт

Сравниваем столбец А со столбцом С с помощью макроса, после выполнения повторяющиеся значения размещаются в столбец В и напротив таких же значений из столбца А.

Помогите, пожалуйста, сделать макрос, который переносит повторяющиеся значения в столбец D, и размещает против таких же значений столбца С.

IgorGO

Sub MoveA2D()
  Dim r As Long, fnd As Range
  For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Not IsEmpty(Cells(r, 1)) Then
      Set fnd = Columns(3).Find(Cells(r, 1), Cells(1, 3), xlValues, xlWhole)
      If Not fnd Is Nothing Then Cells(r, 1).ClearContents:  fnd.Offset(0, 1) = fnd
    End If
  Next
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel