Убрать повторяющиеся числа

Вход

Регистрация

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

= Мир MS Excel/Убрать повторяющиеся числа - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Убрать повторяющиеся числа (Формулы/Formulas)

Убрать повторяющиеся числа

maks3668

Дата: Пятница, 13.11.2015, 14:08 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2013

В строке заданны различные цифры,есть и повторяющиеся. Можно ли как то убрать повторяющиеся числа.

К сообщению приложен файл: _Microsoft_Exce.xlsx (8.1 Kb)

Ответить

Мурад

Дата: Пятница, 13.11.2015, 14:12 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

Выделите диапазон чисел - Выберите в меню Данные - Удалить дубликаты

Ответить

sv2014

Дата: Пятница, 13.11.2015, 17:04 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

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

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

Excel 2013

maks3668, добрый день,можно также макросом,протестируйте,например, на листе Лист2,при повторе скопируйте данные с Лист1 на Лист2.

[vba]

Код

Sub incert()
    With CreateObject("scripting.dictionary"): .CompareMode = 1
        For i = Range("A" & Cells.Rows.Count).End(xlUp).Row To 1 Step -1
            If .exists(Range("A" & i).Value) = False Then
                .Item(Range("A" & i).Value) = 0
            Else
             Range("A" & i).EntireRow.Delete
            End If
        Next
    End With
End Sub

[/vba]

К сообщению приложен файл: example_13_11_2.xls (33.0 Kb)

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Убрать повторяющиеся числа (Формулы/Formulas)

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