Помогите с сортировкой текстовых строк (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д