AirsoftForum
 

Вернуться   AirsoftForum > Курилка > Полный OFF

Закрытая тема
 
Опции темы Опции просмотра
Старый 31.07.2011, 01:54   #1
алкогольно-непоколебимый
 
Аватар для FlyMan
 
 
Сообщений: 4,004
Возраст: 40
Команда: трибэ
Город: Воронеж
Оружие: 18/1911/110
По умолчанию вопрос мастерам экселя

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


надо сравнить первый столбец со вторым и удалить совпадающие по содержанию ячейки из первого, чтоб стало:
___
_|В
_|D
С|А
FlyMan вне форума  
Старый 31.07.2011, 03:56   #2
TF Trolling Stones
 
Аватар для Anvil
 
 
Сообщений: 3,980
Возраст: 35
Команда: MG
Город: Воронеж
Оружие: G36KA1, G36A1, G36KA2, H&K USP, Walther P99 (spring)
По умолчанию Ответ: вопрос мастерам экселя

через функцию VLOOKUP.
Столбцы только по разным листам (хотя бы временно) разнести придется.
__________________
http://airsoftforum.ru/image.php?type=sigpic&userid=141&dateline=12385251  89
Buy REAL. Cry ONCE (с).
Anvil вне форума  
Старый 31.07.2011, 12:02   #3
алкогольно-непоколебимый
 
Аватар для FlyMan
 
 
Сообщений: 4,004
Возраст: 40
Команда: трибэ
Город: Воронеж
Оружие: 18/1911/110
По умолчанию Ответ: вопрос мастерам экселя

VLOOKUP(Критерий поиска; Массив; Индекс; Порядок сортировки)
- критерий поиска?
- массив - интервал поиска типа Лист1.A1:A500?
- индекс - ну, столбец "А"? тогда причём тут массив?
куда выводить значения функции?
FlyMan вне форума  
Старый 31.07.2011, 21:45   #4
алкогольно-непоколебимый
 
Аватар для FlyMan
 
 
Сообщений: 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
FlyMan вне форума  
Старый 31.07.2011, 21:57   #5
Писатель
 
Аватар для Son
 
 
Сообщений: 15,709
Возраст: 23
Команда: Аверс
Город: Воронеж
Оружие: M-15A4
Отправить сообщение для Son с помощью ICQ Отправить сообщение для Son с помощью Skype™
По умолчанию Ответ: вопрос мастерам экселя

пристрелите его уже кто-нибудь
Son вне форума  
Закрытая тема


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 06:50. Часовой пояс GMT +4.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, vBulletin Solutions, Inc. Перевод: zCarot
Support: Voronezh Strikeball