Удаление повторяющихся строк текста, но есть исключения - Excel

Question

У меня есть несколько строк текста, которые выглядят так, как показано ниже.Как видите, есть дубликат « x1 ».В Excel я хочу удалить дубликаты (например, x1), но сохранить слово « Title », так как оно считается дубликатом, и оно будет удалено, а я этого не хочу.

Title
x1
Title
x2
Title
x3
Title
x1
Title
x4

Я искал по всему интернету методы, некоторые из которых включали «проверку данных» или даже формулы, подобные приведенной ниже, но ни один из них не работал.Так есть ли у вас какие-либо идеи о том, как это можно сделать?

=IFERROR(LOOKUP(2, 1/((COUNTIF($A$2:$A$20, $A$2:$A$20)>1)*(COUNTIF($E$1:E1, $A$2:$A$20)=0)*(COUNTIF($C$2:$C$3, $A$2:$A$20)<>1)), $A$2:$A$20), "")

Answer 1

Есть несколько способов справиться с этим, я полагаю, но если «Заголовок» - это всегда каждая вторая строка, вы можете просто использовать цикл do с «+ 2» для определения дуплексов. Например, предположим, что все эти данные находятся в столбце А, начиная со строки 1:

x = 2
Range("C1").Formula = "=Count(A:A)"
y = range("C1")
Cells(x,2).Formula = "=Countifs(A:A, A1)"
Range(Cells(x,2)).Copy
Range(Cells(x + 1, 2), cells(y, 2)).PasteSpecial xlPasteFormulas
Do While x <= y
If Cells(x, 2) > 1 Then
Rows(x).Delete
x = x + 1 'Add 1 since you already deleted 1 row and only need to move to the next row at this point.
Else
x = x + 2 'Add 2 to ensure you don't delete the title row
End If
Loop

Answer 2

Я понял, что после небольшого поиска, в Excel нет простого способа сделать это.А в некоторых случаях это невозможно.Так что я нашел обходной путь с возвышенным текстом, который намного проще сделать.

1. Скопируйте и вставьте содержимое из столбца A в текст Sublime.
2. Затем выберите повторяющееся содержимое, которое вы не хотите удалять, и нажмите ALT + F3.Это выберет все экземпляры этого содержимого. (СОВЕТ: Добавьте один пробел перед этим текстом, чтобы избежать слияния строк при переходе к удалению дубликатов.
3. Инвертируйте выделение, чтобы теперь выделить весь остальной текст / содержимое.
4. Затем перейдите Edit> Permute Lines> Unique .... 5. DONE !!