Тема: Мастера Экселя!

Ответить в теме
Показано с 1 по 4 из 4
  1. Вверх #1
    Не покидает форум
    Пол
    Мужской
    Адрес
    Одесса
    Сообщений
    5,812
    Репутация
    580

    Lightbulb Мастера Экселя!

    Как бы мне узнать такую вещь

    Есть колонка/столбец в таблице, он содержит разные ай-пи адреса в разных своих строчках ну или пофиг там что, как мне выявить есть ли там дубликаты ? т.е. какие-то одинаковые айпишники из всех и как-то их выделить/подсветить

    наверное какая-то функция по их выявлению, сравнивая каждый с остальными всеми, но найти не могу

    Ексель 2010 английский, но можно и русский


  2. Вверх #2
    Посетитель
    Пол
    Мужской
    Сообщений
    337
    Репутация
    62
    Цитата Сообщение от Paradise_Jewelry Посмотреть сообщение
    Как бы мне узнать такую вещь

    Есть колонка/столбец в таблице, он содержит разные ай-пи адреса в разных своих строчках ну или пофиг там что, как мне выявить есть ли там дубликаты ? т.е. какие-то одинаковые айпишники из всех и как-то их выделить/подсветить

    наверное какая-то функция по их выявлению, сравнивая каждый с остальными всеми, но найти не могу

    Ексель 2010 английский, но можно и русский
    на счет функции, встроенной в эксель, которая бы нашла дубли не знаю существует такая ли, но вот маленький макрос сможет выполнить вашу задачу(тестировалось под 2003 офис, думаю с 2010 проблем не будет)
    StartPozStroka = 9
    EndPozStroka = 21
    StartPozKolonka = 67
    EndPozKolonka = 75

    For i = StartPozStroka To EndPozStroka
    For j = StartPozKolonka To EndPozKolonka
    If j = EndPozKolonka Then
    If i = EndPozStroka Then
    NewstartStroka = EndPozStroka
    NewStartKolonka = EndPozKolonka
    Else
    NewstartStroka = i + 1
    NewStartKolonka = StartPozKolonka
    End If
    Else
    NewstartStroka = i
    NewStartKolonka = j + 1
    End If
    MemYacheika = Range(Chr(j) + CStr(i)).Value
    If MemYacheika <> "" Then
    If Not (NewstartStroka = EndPozStroka And NewStartKolonka = EndPozKolonka) Then
    For n = NewstartStroka To EndPozStroka
    If n = NewstartStroka Then
    RealStart = NewStartKolonka
    Else
    RealStart = StartPozKolonka
    End If
    For m = RealStart To EndPozKolonka
    If MemYacheika = Range(Chr(m) + CStr(n)).Value Then
    Range(Chr(m) + CStr(n)).Interior.Color = 500
    Range(Chr(m) + CStr(n)).Interior.Pattern = xlSolid
    End If
    Next m
    Next n
    End If
    End If
    Next j
    Next i
    в самом начале необходимо задать параметры по умолчанию:
    StartPozStroka - номер стартовой строки в эксель
    EndPozStroka - номер конечно строки
    StartPozKolonka - стартовый номер колонки, номер вводится исходя что 'A' - 65, 'B' - 66, 'C' - 67 и т.д.
    EndPozKolonka - номер конечно колонки, вводится также как и стартовый

    Функция подсвечивает только все найденные дубли красным цветом, само значение, которое потом дублируется, не подсвечивается.
    Функция ищет по полному соответствию.

  3. Вверх #3
    Не покидает форум
    Пол
    Мужской
    Адрес
    Одесса
    Сообщений
    5,812
    Репутация
    580
    и где его запускать/вводить ?

  4. Вверх #4
    Посетитель
    Пол
    Мужской
    Сообщений
    337
    Репутация
    62
    Цитата Сообщение от Paradise_Jewelry Посмотреть сообщение
    и где его запускать/вводить ?
    http://office.microsoft.com/ru-ru/excel-help/HA010370613.aspx

Ответить в теме

Социальные закладки

Социальные закладки

Ваши права

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