Помогите с сортировкой текстовых строк (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
Похожие ответы