PDA

Просмотр полной версии : вопрос мастерам экселя


FlyMan
31.07.2011, 01:54
есть два столбца частично разного содержания, типа:
___
A|B
B|D
C|A

надо сравнить первый столбец со вторым и удалить совпадающие по содержанию ячейки из первого, чтоб стало:
___
_|В
_|D
С|А

Anvil
31.07.2011, 03:56
через функцию VLOOKUP.
Столбцы только по разным листам (хотя бы временно) разнести придется.

FlyMan
31.07.2011, 12:02
VLOOKUP(Критерий поиска; Массив; Индекс; Порядок сортировки)
- критерий поиска?
- массив - интервал поиска типа Лист1.A1:A500?
- индекс - ну, столбец "А"? тогда причём тут массив?
куда выводить значения функции?

FlyMan
31.07.2011, 21:45
Sub Just()
Dim Nam As String
Dim iLastRow As Long
Dim LastRow As Long
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
LastRow = Cells(Rows.Count, 6).End(xlUp).Row
For i = 2 To iLastRow
Nam = Cells(i, 2)
If Application.WorksheetFunction.CountIf(Range(Cells( 2, 2), Cells(iLastRow, 2)), Nam) = 1 Then
Cells(i, 2).Copy Cells(LastRow + 1, 6)
LastRow = LastRow + 1
End If
Next
End Sub

Son
31.07.2011, 21:57
пристрелите его уже кто-нибудь