Выделение одинаковых значений

[godkiller07]

Всем привет!
Помогите сравнить 2 столбца, так, что бы столбец А и столбец С сравнивались и ставились друг на против друга а значения оставались на против них.

[godkiller07]

Вот в этом файле "сравнение_2" почти всё готово, но там только 2 столбца сравнивается а мне надо, что бы сравнивалось 2 столбца + что бы оставались значения на против каждой ячейки

[Казанский]

Пустой лист "что должно получиться", так что ничего не понятно.

[Serge_Bliznykov]

Сообщение от Казанский

Пустой лист "что должно получиться", так что ничего не понятно.

в книге есть макрос с именем Main()
он и заполняет лист...

[godkiller07]

Сообщение от Казанский

Пустой лист "что должно получиться", так что ничего не понятно.

Необходимо запустить макрос

[godkiller07]

Вот более подробный пример

[Czeslaw]

=VLOOKUP(M1;$C$1:$D$10;2;0)

[SAS888]

А нельзя просто отсортировать?

Sub qq()
    [A1:B10].Sort [A1]: [C1:D10].Sort [C1]
End Sub

[Казанский]

Пробуйте. Работает с активным листом, формирует на другом листе.

Sub bb()
Dim i&, a As Range, d As Range
Application.ScreenUpdating = False
ActiveSheet.Copy after:=ActiveSheet
[C:C].Insert
Range("A1", Cells(Rows.Count, "A").End(xlUp)).Offset(, 2) = "A"
With Range("D1", Cells(Rows.Count, "D").End(xlUp))
  .Offset(, 2).Value = "C"
  .Resize(, 3).Cut Cells(Rows.Count, "A").End(xlUp).Offset(1)
End With
[A1].Sort [A1], xlAscending, Header:=xlNo
i = 1
Set a = Range("C:C").Find("A")
Set a = Range("C:C").ColumnDifferences(a)
For Each a In a
  i = a.Row
  If i > 1 Then
    If Cells(i, 1) = Cells(i - 1, 1) Then
      Cells(i, 1).Resize(, 3).Cut Cells(i - 1, 4)
      If d Is Nothing Then Set d = Cells(i, 1) Else Set d = Union(d, Cells(i, 1))
    Else
      Cells(i, 1).Resize(, 3).Cut Cells(i, 4)
    End If
  Else
    Cells(i, 1).Resize(, 3).Cut Cells(i, 4)
  End If
Next
Range("C:C,F:F").Delete
d.EntireRow.Delete
Application.ScreenUpdating = True
End Sub

[godkiller07]

Сообщение от Казанский

Пробуйте. Работает с активным листом, формирует на другом листе.

Sub bb()
Dim i&, a As Range, d As Range
Application.ScreenUpdating = False
ActiveSheet.Copy after:=ActiveSheet
[C:C].Insert
Range("A1", Cells(Rows.Count, "A").End(xlUp)).Offset(, 2) = "A"
With Range("D1", Cells(Rows.Count, "D").End(xlUp))
  .Offset(, 2).Value = "C"
  .Resize(, 3).Cut Cells(Rows.Count, "A").End(xlUp).Offset(1)
End With
[A1].Sort [A1], xlAscending, Header:=xlNo
i = 1
Set a = Range("C:C").Find("A")
Set a = Range("C:C").ColumnDifferences(a)
For Each a In a
  i = a.Row
  If i > 1 Then
    If Cells(i, 1) = Cells(i - 1, 1) Then
      Cells(i, 1).Resize(, 3).Cut Cells(i - 1, 4)
      If d Is Nothing Then Set d = Cells(i, 1) Else Set d = Union(d, Cells(i, 1))
    Else
      Cells(i, 1).Resize(, 3).Cut Cells(i, 4)
    End If
  Else
    Cells(i, 1).Resize(, 3).Cut Cells(i, 4)
  End If
Next
Range("C:C,F:F").Delete
d.EntireRow.Delete
Application.ScreenUpdating = True
End Sub

Спасибо огромное!