Помогите с сортировкой текстовых строк (Word или Excel) - VB

Формулировка задачи:

Есть список (не нумерованный, не маркированный), текстовые строки отсортированы по алфавиту. Требуется код для последовательного сравнения соседних строк. При совпадении вторая строка удаляется, а первая сравнивается со следующей. Заодно подскажите "чайнику", есть ли разница в работе с данным списком в Ворде и Экселе, и я хотел бы при обновлении списка запускать код нажатием кнопки - где это проще выполнить - в W или Е Заранее премного благодарен!

Решение задачи: «Помогите с сортировкой текстовых строк (Word или Excel)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim s1$, s2$, n&
n = 1
Do
s1 = Sheets("Лист1").Cells(n, 1).Value
s2 = Sheets("Лист1").Cells(n + 1, 1).Value
If s1 = s2 Then
ActiveCell.Offset(n, 0).Select
Exit Do
Else
n = n + 1
End If
Loop
End Sub

Оцени полезность:

7 голосов , оценка 3.857 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы