|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.12.2011, 23:33 | #11 | |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Цитата:
И код прекрасно находит его и ещё вероятно пару сотен повторений... Можно подсчитать... Подсчитал - 1910 повторов разных значений. Вот и говорю, что каша.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 24.12.2011 в 23:36. |
|
24.12.2011, 23:59 | #12 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Поддерживаю Hugo121 ,повторов нет,тем более телефона 795604
вообще в файле нет
Анализ,обработка данных Недорого
|
25.12.2011, 00:27 | #13 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Есть Nr.tel 795604
Вообще задание было такое: "а подскажите пожалуйста макрос который будет искать на всем листе,во всех ячейках все повторы и будет выделять оригинал красным а повторы зеленым цветом" Я именно так и сделал. И не надо говорить, что макрос не работает.
webmoney: E265281470651 Z422237915069 R418926282008
|
25.12.2011, 11:26 | #14 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
формула (формула массива)
Код:
где дано - ссылка на диапазон с данными (в примере они в колонке А)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
25.12.2011, 17:35 | #15 |
Форумчанин
Регистрация: 12.08.2009
Сообщений: 199
|
А подскажите пожалуйста как указать макросу чтобы он искал повторения только в колонках K, L, M, N ?
|
25.12.2011, 17:52 | #16 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
26.12.2011, 12:17 | #17 |
Форумчанин
Регистрация: 12.08.2009
Сообщений: 199
|
|
27.12.2011, 16:54 | #18 |
Форумчанин
Регистрация: 04.12.2011
Сообщений: 148
|
По моему отличный макрос, из архива http://programmersforum
Sub Main() Dim x As Range, y As New Collection, i As Long, j As Integer, k As Integer, a() With Application .FindFormat.Clear: .ReplaceFormat.Clear: .ScreenUpdating = False With ActiveSheet.UsedRange .Replace "0", "", xlWhole: .Replace "00", "", xlWhole For i = .Rows.Count To 2 Step -1 If Rows(i).Text = "" Then Else Exit For Next End With Set x = Range([A2], Cells(i - 1, 20)): a = x.Value: k = 2 x.NumberFormat = "@": x.Interior.ColorIndex = xlNone For i = 1 To UBound(a, 1) For j = 1 To UBound(a, 2) If a(i, j) <> "" Then On Error Resume Next y.Add a(i, j), CStr(a(i, j)) If Err <> 0 Then k = IIf(k > 18, 3, k + 1): .ReplaceFormat.Interior.ColorIndex = k .[A:T].Replace a(i, j), a(i, j), xlWhole, , , , , True: On Error GoTo 0 End If: End If: Next: Next: End With End Sub |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как проверить строку? | nikleb | PHP | 6 | 07.07.2008 22:04 |
Пожалуйста, требуется подсказка!!! Как изменить сумму денег в копейках на рубли во всем столбце???? | yur4eG | Microsoft Office Excel | 2 | 05.05.2008 18:52 |
Как посчитать сумму в столбце таблицы? | Иллидан | Microsoft Office Word | 1 | 15.04.2008 21:30 |
Перечисление в столбце. Как "вытащить" нужное? Помогите! | Tatyana | БД в Delphi | 2 | 10.07.2007 09:25 |