| Вопрос: VBA Excel перенос текста | Добавлено: 06.03.08 19:03 |
Автор вопроса:  Piotr
|
|
Есть два столбца с текстом (A1; B1). Оба столбца содержат по 10 слов и в обеих столбцах слова повторяются. Например:
A1 B1 Nikolaj Jurij Jurij Nikolaj Anastasija Olga Olga Anastasija Misha Aleksandr Aleksandr Misha Olga Aleksandr Aleksandr Olga Jurij Nikolaj Nikolaj Jurij --------- Dim spisok1(10), spisok2(10) Sub Spisok() Range("A1").Activate For i = 1 To 10 spisok1(i) = ActiveCell.Value ActiveCell.Cells(2).Activate Next i Range("C1").Activate For j = 1 To 10 spisok2(j) = ActiveCell.Value ActiveCell.Cells(2).Activate Next j Range("E1").Activate For j = 1 To 10 For k = 1 To 10 If spisok2(j) <> Empty And spisok2(j) = spisok1(k) Then ActiveCell.Value = spisok2(j) ActiveCell.Cells(2).Activate End If Next k Next j End Sub Этот код ищет одинаковые слова и вписывает их в отдельный столбец E1. Вопрос: как сделать, чтобы код всё делал наоборот (вписывал не повторяющиеся слова). Буду очень благодарен за любую помощь. |
| Ответы | Всего ответов: 0 |
Страница: