Сравнить ячейку с таблицей и добавить последней.

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Сравнить ячейку с таблицей и добавить последней. - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сравнить ячейку с таблицей и добавить последней. (Формулы)

Сравнить ячейку с таблицей и добавить последней.

AndreySd

Дата: Вторник, 24.09.2013, 12:34 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Здравствуйте!

Подскажите, пожалуйста, каким образом можно решить?
Нужно сравнить значение ячейки B1 со значениями ячеек в диапазоне A1-Aххх, и если совпадений нет, то добавить значение из ячейки B1 в ячейку Aххх+1

Ответить

SkyPro

Дата: Вторник, 24.09.2013, 12:40 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Формулой никак. Насколько я понял, то значение в В1 будет меняться.
Макросом можно вот так:
[vba]

Код

Sub cont()
Dim r&
r = Cells(Rows.Count, 1).End(xlUp).Row
     If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(r, 1)), [b1].Value) = 0 Then
         Cells(r + 1, 1).Value = [b1].Value
     End If
End Sub

[/vba]

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Вторник, 24.09.2013, 12:52

Ответить

Сравнить ячейку с таблицей и добавить последней. (Формулы)

Страница 1 из 1
1