31.07.2011, 01:54 | #1 |
алкогольно-непоколебимый
Сообщений: 4,004
Возраст: 40
Команда: трибэ
Город: Воронеж
Оружие: 18/1911/110
|
вопрос мастерам экселя
есть два столбца частично разного содержания, типа:
___ A|B B|D C|A надо сравнить первый столбец со вторым и удалить совпадающие по содержанию ячейки из первого, чтоб стало: ___ _|В _|D С|А
__________________
[детальная распродажа] |
31.07.2011, 03:56 | #2 |
TF Trolling Stones
Сообщений: 3,980
Возраст: 35
Команда: MG
Город: Воронеж
Оружие: G36KA1, G36A1, G36KA2, H&K USP, Walther P99 (spring)
|
Ответ: вопрос мастерам экселя
через функцию VLOOKUP.
Столбцы только по разным листам (хотя бы временно) разнести придется.
__________________
Buy REAL. Cry ONCE (с). |
31.07.2011, 12:02 | #3 |
алкогольно-непоколебимый
Сообщений: 4,004
Возраст: 40
Команда: трибэ
Город: Воронеж
Оружие: 18/1911/110
|
Ответ: вопрос мастерам экселя
VLOOKUP(Критерий поиска; Массив; Индекс; Порядок сортировки)
- критерий поиска? - массив - интервал поиска типа Лист1.A1:A500? - индекс - ну, столбец "А"? тогда причём тут массив? куда выводить значения функции?
__________________
[детальная распродажа] |
31.07.2011, 21:45 | #4 |
алкогольно-непоколебимый
Сообщений: 4,004
Возраст: 40
Команда: трибэ
Город: Воронеж
Оружие: 18/1911/110
|
Ответ: вопрос мастерам экселя
Код:
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
__________________
[детальная распродажа] |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|