А не подскажите как это исправить, чтобы данная ошибка не возникала?

Не могу разобраться в чем причина.  
Есть макрос, который должен удалять все дубликаты с столбце А. Причем дубликаютии считаются все значения, который повторяются только в этом столбце. Самое нижнее значение удаляться не должно т.е.  
 
2012.10.13 2  
2012.10.14 4  
2012.10.17 5  
2012.10.13 6  
 
должно стать:  
2012.10.14 4  
2012.10.17 5  
2012.10.13 6  
 
т.е. проверяем дубляж в первом столбце и удаляем все остальные строки с дубляжем.  
 
Есть подобный макрос, но он как-то странни работает. Дубликаты вроде бы удаляются, но столбцы странно расползаются. Пример в аттаче. Буду благодарен. за пояснение как исправить.

Есть таблица с дубликатами, однако простой фильтр удаления дубликатов не помогает т.к. некоторые строки в таблице могут отличаться. К примеру в приаттаченной таблице для 4 и 6 строки столбцов D  H данные разные. Т.к. человек произвел оплату, то нужно удалить ту строку где помечено "Не оплачено", и оставить ту где "оплачено".  
 
В интернете решения найти не удалось. Если подскажете макрос, заточенный для этого, то буду признателен.

Он мне еще ругается на строчку  
Dim MR as Range("J2:J1000")  
что не так?

файл прикрепляю

Sub ChangeColor()  
Dim MR as Range("J2:J1000")  
For Each cell In MR  
If cell.Value = "Не оплачено" Then cell.Interior.ColorIndex = RGB (156, 101, 0)  
If cell.Value = "Оплачено" Then cell.Interior.ColorIndex = RGB (0, 97, 0)  
If cell.Value = "Отказ" Then cell.Interior.ColorIndex = RGB (156, 0, 6)  
   Next  
End Sub  
 
не работает. Вылетает ошибка. В чем проблема?

Hugo, как и обещал скинул вам спасибо на указанные реквизиты.

Hugo, если что я про вас не забыл. Просто сейчас по времени зашиваюсь. Если все заработает вечером постараюсь скинуть вам спасибо на указанные реквизиты.

{quote}{login=Hugo}{date=06.12.2011 07:08}{thema=}{post}Я уже где-то этот файл выкладывал - подходит под Вашу задачу без переделок, только свои данные закиньте в него на два листа.  
Код на словаре и двух массивах (да в общем похож на показанный выше), легко переносится и изменяется.{/post}{/quote}  
Спасибо! Сейчас попробую.

{quote}{login=nerv}{date=06.12.2011 03:46}{thema=}{post}а ВПР() не устроит?){/post}{/quote}  
Бр.... не могли бы вы сделать на нем решение, если он подходит?  
 
>Куда копировать?  
В файле который я прикрепил данные копируются в столбец H.

Небольшая модификация текущей задачи.  
Есть таблица с показателями  
20110901 4  
20110902 1  
20110903 0  
20110903 3  
20110904 4  
 
Есть другая таблица, где есть так же столбец даты, но показатели уже другие и даты в нем не имеют повторения.    
 
20120901 159  
20120902 160  
20120903 161  
20120904 162  
 
Нужно данные из второй таблицы поместить в первую, так чтобы было:  
 
20110901 4 159  
20110902 1 160  
20110903 0 161  
20110903 3 161  
20110904 4 162  
20110905 2 163  
 
т.е. макрос должен пробегаться по второму столбцу и если в первом есть дата аналогичная второй - копировать из него значение.  
 
Отблагодарю по WebMoney.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

А можно узнать почему такое получается? Почему не получается через формат изменить?

Есть таблица, в ней столбец с датами вида:  
28.10.2011  
28.10.2011  
 
В этом же столбце есть даты в неправильном формате:  
10.28.2011  
10.28.2011  
 
Через формат ячеек изменить формат на день-месяц-год не получается. Не знаю почему. Нужно какое-либо решение. Пусть даже самое тупорное.

Макрос который был до этого рассчитан на другой диапазон ячеек. Тут суть та же, но я не знаю как его поправить. Возможно это очень просто, но тут у меня что-то не получается.

Простите, не могли бы поправить макрос, чтобы он мог обрабатывать файл прикрепленный в аттаче.  
 
Я отблагодарю по WMR.  
 
Суть почти таже самая. Я не могу разобраться как его исправить.  
 
Нужно столбцы DE выравнивать по столбцу A.НА скриншоте показано что нужно:  
 
http://pic2net.ru/view/v/2a5821046e6092dc8ed49f54013a2fe6.jpg

Я просто логику формулы не совсем понимаю. при попытках ее изменить получаю или ничего или "#Значение" в ячейке.  
 
В данном случае можно даже не заморачиваться с проверкой нулевого значения в предыдущий день. Тут нужно просто по горизонтали читать. И там где светло зеленое записывать дату в которое это светло-зеленое появилось.

А не могли бы мне подсказать, как исправить формулу, чтобы она работала в следующем случае?  
 
Пока в AA3 я вставил, тот вариант что Вы дали и который успешно работает. Но есть потребность сделать так, чтобы в копировалось в свободную ячейку копировалось время, которое соответствует подсвеченному значению.  
т.е. в 21 час у нас подсвечено "-8" - копируем - записываем значение 21 в столбец. Если несколько зеленых цифр по горизонтали, то можно их в отдельные ячейки класть, а можно в одну... не принципиально.  
 
Прикладываю сам файл с примером.  
 
Заранее спасибо!

Hugo,  
Все спасибо разобрался! Посмотрел файл в аттаче и понял куда все вставляется. Я пытался вставить в конец или в отдельный модуль.

Прошу прощения, в следующий раз буду продолжать в старой теме.  
 
>У меня к вам вопрос в связи с тем, что размножен код макроса с пометкой "обрабатывать диапазоны по отдельности", а так они не по отдельности обрабатывались?)  
 
Речь про код код подсветки? Да я его размножил для того чтобы было понятнее т.к. каждый блок свой столбец обрабатывает.

А не могли бы объяснить на пальцах куда вставить этот код? Я не понимаю :(  
Хотя книжку по основам программирования на VBA под Excel прочитал, даже с готовым кодом работать не умею.

Ой, да в одном в 12 строчке буквой ошибся.  
Не могли бы уточнить фразу:  
>Ставите 4 в ряд, и ещё тримом сверху покрыть... :)  
 
p.s. денюжку скинул.

Привет всем! Я продолжаю мучиться с солнечной активностью. Готов заплатить 300WMR тому, кто поможет сделать следующий макрос:  
Нужно в крайний столбец копировать цифровое обозначение столбца (12345670) и буквенное имя данного столбца.  
Копировать нужно именно светлозеленое значение - т.е. значение _с_ которого произошел скачек. При этом важно, что если скачек произошел вчера, он записывается в ячейку за сегодня -> H0.  
 
Написано сумбурно, но я в файле Excel показал логику работы. Тоже самое должен делать макрос.  
 
У кого нет WebMoney готов кинуть деньги на телефон или конвернтнуть WMR в любую удобную валюту.  
 
Заранее спасибо!

Более того, на результат влияет скорость пошагового выполнения - если зажать F8, то результатом будет опять-такие не правильные данные - данные заканчивающиеся на 02 а не на 05 как надо.

Есть макрос удаляющий дубликаты из текстового файла.  
Называется Remove_doubles.    
Проблема в том, что при автоматическом и пошаговом выполнении получается разный результат - т.е. при автоматическом почему-то последней датой остается 02 число, а при ручном как и полагается 05.  
 
Данные макрос берет из текстового файла. Путь к файлу является указан абсолютный.

{quote}{login=Hugo}{date=27.09.2011 04:46}{thema=}{post}А если так?  
Но красил одним цветом - а то как покрасить 1 3 6?  
И не понял пропуски - я их игнорирую.  
 
Sub colorize2()  
'отсортировать даты по возрастанию!!!  
 
Dim r1 As Range, r2 As Range  
Dim x As Object  
 
Set r1 = [b1] 'это любая ячейка, можно указать последнюю за прошлый период
For Each x In [B3:AJ31]
If Len(x.Value) Then Set r2 = x  
If r2.Value > r1.Value + 1 Then r2.Interior.Color = vbGreen  
Set r1 = r2  
Next  
End Sub{/post}{/quote}  
 
За реализацию спасибо! Думаю несколько позже посмотрю как оно работает!  
 
nerv, если просто добавить, что вы предложили, то будет следующий код, верно?:  
 
Sub io()  
Dim x As Object  
For Each x In [B3:AJ31]
With x.Item(1, 0)  
   If .Value <> "" Then  
       If Not IsDate(.Value) Then  
           If x.Value >= .Value + 2 Then _  
           x.Interior.Color = vbGreen  
           .Interior.Color = vbYellow  
       End If  
   End If  
End With  
Next  
End Sub  
 
Но он мне тогда вообще все закрашивает цветом, а не только предыдущую ячейку в которой был скачек.

{quote}{login=GIG_ant}{date=27.09.2011 03:41}{thema=}{post}Не уверен что уловил правильно суть задания.  
Но как понял так и сделал. см.файл{/post}{/quote}  
Большое спасибо, но не то.  
 
Попробую объяснить в отрыве от цифр. Эти данные представляют собой солнечную активность. т.е. каждый день раз в 3 часа появляется новая цифра. Соответственно мы подсвечиваем солнечные вспышки т.е. когда значение резко скакнуло на 2 деления.  
 
Но тут вылезает небольшой нюанс - предложенный макрос подсвечивает только сегоднюшнюю вспышку т.е. если к примеру у нас вчера в 23:59 была вспышка, то на завтра у нас создается новая строка НО при этом получается что может быть новая вспышка и значение может скакнуть еще на 2 деления. А у нас это не учитывается.  
 
Кстати, а как в предложенном коде:  
 
Sub io()  
Dim x As Object  
For Each x In [B3:AJ31]
With x.Item(1, 0)  
   If .Value <> "" Then  
       If Not IsDate(.Value) Then  
           If x.Value >= .Value + 2 Then _  
           x.Interior.Color = vbGreen  
       End If  
   End If  
End With  
Next  
 
Подсветить не только ячейку в которой была вспышка, но и предыдущюю. Хотелось бы ее бледно-зеленым подкрасить, чтобы было лучше видно откуда скачек произошел.

nerv, прошу прощения! Все подсвечивается! Это я тут туплю просто!

{quote}{login=nerv}{date=27.09.2011 01:45}{thema=}{post}>эт условие в макрос не заложено...  
На сколько это сложно? Просто если сложно, то пока без этого обойдусь  
 
приведите более понятный пример. Попробуем что-нибудь придумать){/post}{/quote}  
 
Пока что, как я понимаю, сравнение работает только для строки т.е.  
0 1 5 2       5-ка подсвечивается  
5 2 1 3       3-ка подсвечивается, но т.к. был переход на новый день, а вчера последнее значение было 2-ка, надо бы чтобы 5 тоже подсветилось    
 
ЗЫ но это реально не горит.

nerv, да, так стало понятнее  
 
>эт условие в макрос не заложено...  
На сколько это сложно? Просто если сложно, то пока без этого обойдусь  
 
>>>Каждый из 4 столбцов с матрицей должен обсчитываться отдельно.  
>>+  
Да в том смысле, что данные не строка, а столбцы и последнее число первого столбца не надо сравнивать с первым второго.

Решением проблемы стало замена *2 на +1:  
 
Sub colorize()  
Dim x As Object, i As Byte  
For Each x In [B3:AJ31]
If x.Item(1, 0) <> "" Then  
If Not IsDate(x.Item(1, 0)) Then  
If x.Value > x.Item(1, 0) + 1 Then x.Interior.Color = vbGreen  
End If  
End If  
Next  
End Sub  
 
Почему +1, а не +2 не понял. Это же число вроде бы показывает разность между двумя ячейками...