Как определить строки, которые имеют одинаковое значение в двух столбцах?

Я пытаюсь определить целую строку, если столбец B И столбец C повторяют значения с помощью сценария VBA. Например, если у меня есть таблица, которая содержит:

ID Age Grade 1 14 90 2 15 78 3 14 90 4 16 86 5 16 86 6 15 89 7 14 88 

После запуска скрипта я хочу новый лист со строками, которые повторяют значения в столбце B и столбце C. Таким образом, новый лист будет выглядеть так:

 ID Age Grade 1 14 90 3 14 90 4 16 86 5 16 86 

Это то, что я имею до сих пор в плане определения строк. Я не так далеко.

 Sub ID() Dim LastRowcheck As Long, n1 As Long Dim LastRowcheck2 As Long, n2 As Long With Worksheets("grades") LastRowcheck = .Range("B" & .Rows.Count).End(xlUp).Row LastRowcheck = .Range("C" & .Rows.Count).End(xlUp).Row For n1 = LastRowcheck To 1 Step -1 If .Cells(n1, 1).Value = Cells(n1 + 1, 1).Value And .Cells(n2, 1).Value = Cells(n2 + 1, 1).Value Then '''export to new sheet End If Next n1 End With End Sub 

Используйте application.countifs для идентификации кратных.

 Dim lastRowcheck As Long, n1 As Long With Worksheets("grades") lastRowcheck = Application.Max(.Range("B" & .Rows.Count).End(xlUp).Row, _ .Range("C" & .Rows.Count).End(xlUp).Row) For n1 = lastRowcheck To 1 Step -1 If Application.CountIfs(.Columns("B"), .Cells(n1, "B").Value2, .Columns("C"), .Cells(n1, "C").Value2) > 1 Then '''export to new sheet Debug.Print .Cells(n1, "A") & ":" & .Cells(n1, "B") & ":" & .Cells(n1, "C") End If Next n1 End With 
  • Datatable - проблема с разбором столбца excel с несколькими форматами
  • Использование Python для поиска ключевых слов в документах в структурах папок
  • делая ячейки заготовкой и листом Excel, используя perl
  • Найти ключевое слово и очистить текст из того же поля для преобразования на дату
  • Анализ данных из файла .txt с использованием VBA, данных и переменных на разных строках
  • Анализ HTML с помощью Excel VBA
  • Разбор в python, чтобы преуспеть
  • как удалить первую запятую в строке в excel vba
  • Каков наилучший способ анализа файла Excel на Perl?
  • VLookup не будет работать в Excel после анализа текста
  • Анализ данных, Excel на Python
  • Interesting Posts

    Комплексное округление с нестандартными интервалами в Excel

    Добавить новый столбец в сводную таблицу с помощью VBA

    Вызов ПЕРСОНАЛЬНОГО макроса из другой книги

    Точное сравнение столбца строки между двумя листами excel vba

    INDEX MATCH множественные вхождения

    Excel: ошибка времени выполнения «13» Несоответствие типа

    изменить hh: mm на десятичную hh.mm (см. пример)

    Диалоговое окно «Сохранить как» в ASP.Net для экспорта файла Excel? (учетная запись службы)

    NoClassDefFoundError: UnsupportedFileFormatException при работе с листом excel с использованием java

    Подсчитайте что-то на основе другого столбца

    Excel: введите содержимое ячейки как команду в cmd при нажатии кнопки

    Как я могу разрешить пользователю выбирать файл Excel и запрашивать выбранный файл в приложении WinForms?

    Печать нескольких значений ячейки в строке в отфильтрованном листе

    Используйте инструкцию Excel if, основанную на VALUE РАСЧЕТА другой ячейки, а не содержимое этой ячейки

    Как использовать функцию = VLOOKUP в двух столбцах текста (например, английский на бенгальский словарь)

    Давайте будем гением компьютера.