dujmovochka_2007, Добрый вечер. Может быть достаточно их вывести? Потому что их там больше чем две пары: 095 15782 081 23267 078 10971 076 33233 076 24273
dujmovochka_2007, Добрый вечер. Может быть достаточно их вывести? Потому что их там больше чем две пары: 095 15782 081 23267 078 10971 076 33233 076 24273Hugo
dujmovochka_2007, выделить эти строки, выполнить макрос [vba]
Код
Sub tt() Dim c As Range, d As Object Dim a, s$, i&, t$, k
Set d = CreateObject("Scripting.Dictionary")
For Each c In Selection If Len(c) Then s = c a = Split(s, "/") For i = 1 To UBound(a) t = Split(a(i), ",")(0) d.Item(t) = d.Item(t) + 1 Next End If Next
With Workbooks.Add.Sheets(1) i = 0 For Each k In d.keys If d(k) > 1 Then i = i + 1 .Cells(i, 1) = "'" & k End If Next .Cells.EntireColumn.AutoFit End With
End Sub
[/vba] Результат будет в новой книге, для верности чтоб не потерять ведущие нули добавил впереди апостроф, это можно удалить если точно все значения будут с пробелом внутри.
dujmovochka_2007, выделить эти строки, выполнить макрос [vba]
Код
Sub tt() Dim c As Range, d As Object Dim a, s$, i&, t$, k
Set d = CreateObject("Scripting.Dictionary")
For Each c In Selection If Len(c) Then s = c a = Split(s, "/") For i = 1 To UBound(a) t = Split(a(i), ",")(0) d.Item(t) = d.Item(t) + 1 Next End If Next
With Workbooks.Add.Sheets(1) i = 0 For Each k In d.keys If d(k) > 1 Then i = i + 1 .Cells(i, 1) = "'" & k End If Next .Cells.EntireColumn.AutoFit End With
End Sub
[/vba] Результат будет в новой книге, для верности чтоб не потерять ведущие нули добавил впереди апостроф, это можно удалить если точно все значения будут с пробелом внутри.Hugo
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
