VBNet - Форум - VBA & Excel

Вопрос: VBA & Excel Добавлено: 03.04.08 17:46

Автор вопроса: Piotr

Здравствуйте, експерты. Помогите пожалуйста с кодом. Есть 2 столбца: A1; B1, в которых записаны названия дней недели и месяцов. Код ищет НЕ совпадающие названия В ОБОИХ столбцах и записывает их в отдельный столбец C1. Всё работает хорошо, но когда в том же столбце попадается одинаковое слово, код его снова выводит. Код должен искать только НЕ совпадающие названия и выводить их.
Заранее благодарен за любые ответы.

Sub spisok()
k = 1
For i = 1 To 10
Set S = Range("B1:B10").Find _
(What:=Cells(i, "A").Value, LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If S Is Nothing Then
Cells(k, "C").Value = Cells(i, "A").Value
k = k + 1
End If
Set S = Range("A1:A10").Find _
(What:=Cells(i, "B").Value, LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If S Is Nothing Then
Cells(k, "C").Value = Cells(i, "B").Value
k = k + 1
End If
Next i
End Sub
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| Цитата \| #1	Добавлено: 06.04.08 02:36
	Доброго времени суток! не совсем понятно, что подразумевается вот под этим но когда в том же столбце попадается одинаковое слово, код его снова выводит. Код должен искать только НЕ совпадающие названия и выводить их. Код работает верно! Но... 1.Если НЕ совпадающие "имена" должны НЕ совпадать с именами нетолько соседнего("другого" столбца, а также и с именами "своего", то задача поиска будет выглядеть действительно немного по-другому, т.е. надо осуществлять поиск и по "своему" столбцу! 2. Если первое неверно, то я, вообще, из сообщения них..на(ничего) не понял! Ответить

Номер ответа: 2 Автор ответа: urain Вопросов: 3 Ответов: 34	Профиль \| Цитата \| #2	Добавлено: 06.04.08 12:07
	Вот заморочка, опиши подробнее проблему, что за совпадающие слова, имеется ввиду дни недели? Если да то вероятно дата другая, вот и выводит. Поиск идет по точному совпаденю. Cells(k, "C".Value = Cells(i, "A".Value Ответить

Номер ответа: 3 Автор ответа: urain Вопросов: 3 Ответов: 34	Профиль \| Цитата \| #3	Добавлено: 06.04.08 12:10
	Cells(k, "C".Value = Cells(i, "A".Value'ВОТ ТОЧНОЕ СОВПАДЕНИЕ иначаче искать по другому нужно а как night-roll подскажет думаю! Ответить

Номер ответа: 4 Автор ответа: Piotr Вопросов: 4 Ответов: 3	Профиль \| Цитата \| #4	Добавлено: 06.04.08 15:05
	Night-roll, возможно я не так объяснил, но вы поняли именно так, как написали. Вот именно так задачку нужно реализовать. Спасибо за ответ Ответить

Номер ответа: 5 Автор ответа: Piotr Вопросов: 4 Ответов: 3	Профиль \| Цитата \| #5	Добавлено: 06.04.08 15:10
	1.Если НЕ совпадающие "имена" должны НЕ совпадать с именами нетолько соседнего("другого" столбца, а также и с именами "своего", то задача поиска будет выглядеть действительно немного по-другому, т.е. надо осуществлять поиск и по "своему" столбцу! Именно то я и имею ввиду Ответить

Страница: 1 |