Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Excel + VBA Как сделать поиск дублей по строкам
 
Здравствуйте, уважаемые
У меня есть таблицы, в которых разное количество столбцов и строк
Мне нужно найти дубли
Первая строка - искомая (значения: n1, n2, n3 ... n10), эти значения необходимо найти в других строках
Например: n4 встречается во 2-ой строке или n2 встречается в 4-ой строке

Я попробовал сделать VBA скрипт, но получилось очень криво...
В итоге что-то ищет, что нет...

Помогите пожалуйста, что я делаю неправильно?
Код
Sub test()
k = 2
i = 1
For p = 2 To 10 'строки
i = i + 1 'так перебираю строки, не стал использовать цикл, так как каждый раз приходится возвращаться ко второй строке
    For j = 2 To 10 'так перебираю столбцы
        If Cells(1, k) = Cells(i, j) Then 'ищу искомое значение в строках ниже, перебирая столбцы
            Cells(s, 2) = Cells(1, k) 'Если нашёл - выписываю
        End If
        If i = 5 Then 'Если дошёл до конца строк, сбрасываю счётчик и снова перехожу ко 2-ой строке
        i = 1
        End If
    Next j
    k = k + 1
Next p
End Sub
pic.png (12.17 КБ)
Изменено: DataLa - 4 Сен 2018 11:08:02
 
DataLa, что бы найти дубли в таблице 10х10 вам для каждого значения таблицы нужно перебрать все значение в массыве данных.

тоесть 10Х10 значений 10Х10 в таблице и того 10000 проверок
ето грубый перебор.

правда есть другие методы, но пока разберитесь с етим
Изменено: ivanok_v2 - 4 Сен 2018 11:12:35
Страницы: 1
Читают тему (гостей: 1)
Наверх