Не могу разобраться в чем причина.  
Есть макрос, который должен удалять все дубликаты с столбце А. Причем дубликаютии считаются все значения, который повторяются только в этом столбце. Самое нижнее значение удаляться не должно т.е.  
 
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 данные разные. Т.к. человек произвел оплату, то нужно удалить ту строку где помечено "Не оплачено", и оставить ту где "оплачено".  
 
В интернете решения найти не удалось. Если подскажете макрос, заточенный для этого, то буду признателен.

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  
 
не работает. Вылетает ошибка. В чем проблема?

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

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

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

Есть матрица вида:  
1 1 0 2 2  
1 0 1 1 2  
1 1 0 1 2  
1 1 0 1 2  
1 1 2 1 2  
 
в реальной жизни она выглядит так http://pic2net.ru/view/v/c0eb8cc734d422ea314edcddd26b8ed4.jpg  
 
Задача ходить по матрице и подсвечивать ячейки, где каждое следующее значение превышает предыдущее в 2 раза. т.е. 1 1 0 1 - ничего не подсвечивается, а 1 1 0 2 - подсвечивается ячейка с двойкой.  
 
Как это проще всего сделать? Я читал, что в Excel есть "Excel Conditional Formatting", но как я понимаю этот вариант хорош когда не так много данных и можно вручную установить взаимосвязи? Как быть в случае с моими данными?  
 
Важно чтобы изменение диапазона работало не только в одном ряду, но и оценивало был ли скачек с предыдущей даты.  
 
Подскажите пожалуйста самое просто решение. Каждый из 4 столбцов с матрицей должен обсчитываться отдельно.

Есть два столбца с датами (данные собираются из интернета). Проблема в том, что данные выкладываются с разницей по дням, но их нужно свести к одному дню т.е. чтобы строку можно было читать слева-направо и она была без смещений.  
Проще показать на скриншоте: http://pic2net.ru/view/v/30885bfa6c5d7902a643b5dd9f3550de.jpg  
Не могли бы рассказать как это сделать проще всего\написать простенький макрос который бы это делал? Я отблагодарю по WebMoney.  
 
Дату в можно привести к любому удобному виду.

есть данные в виде:  
234  
642  
151  
721  
 
нужно их перевернуть, чтобы они шли в обратном порядке т.е.:  
721  
151  
642  
234

Есть столбец A.  
В нем располагаются цифры. Их всегда 8. Проблема в том, что иногда попадаются столбцы где Excel убирает впереди идущие нули (я делаю импорт данных). Итого вместо:  
00101211  
Я получаю:  
101211  
 
Сам столбец выглядит так:  
101211  
22022213  
13444532  
11012221  
220113  
23938810  
 
Нужно как-то для всего столбца делать дополнение нулями всех строк, которые короче состоят менее чем из 8 символов, до 8 символов.  
 
Заранее спасибо!

Есть макрос снимающий данные с трех серверов. Проблема в том, что если на одном из серверов нет данных, макрос вываливается с ошибкой "нет данных для выборки", если на одном из серверов в данное время нет данных.  
 
Сам сервер http://www.ceme.gsras.ru/cgi-bin/ccd_quake_tmp.pl?dat=26-08-2011&x=13&y=7  
 
Ошибка ругается вот на этот участок кода:  
   Selection.TextToColumns Destination:=Range("L2"), DataType:=xlDelimited, _  
       TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _  
       Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _  
       :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True  
 
   Selection.NumberFormat = "d/m/yyyy;@"  
   Range("M2:M15").Select  
   Selection.NumberFormat = "h:mm;@"  
   Range("H2:H15").Select  
   Selection.NumberFormat = "d/m;@"  
   Sheets("Лист3").Select  
   ActiveWindow.SmallScroll Down:=3  
   Range("D8:D60").Select  
Имеется ввиду его верхняя часть.  
 
Нужно только одно - чтобы ошибка не приводила к остановке макроса. Пусть игнорируется, копирует пустые ячейки и тд, лишь бы с остальных серверов данные снимались.

Необходимо создать макрос, который получит системную дату, вычтет из нее один день и удалит строку, в которой будет будет эта дата.  
строки формируются в виде:  
aaa bbb 23.8.2011 ggg  
aaa bbb 23.8.2011 ggg  
aaa bbb 24.8.2011 ggg  
 
т.е. если сегодня дата 24, то мы вычитаем из нее единицу и удаляем строки именно где она присутствует. В примере первые две. Даты будут в столбца С. т.е. на выходе должно остаться:  
aaa bbb 24.8.2011 ggg  
 
P.S. Отблагодарю по WMR

Проблема в следующем.  
Есть макрос который снимает данные с сайта http://www.emsc-csem.org/Earthquake/index.php?view=0 и приводит их к нужному формату:  
 
latitude      longitude      date      time     magnitude     depth      region  
37.032      -104.69      23.8.2011      2:11     3.9           5         COLORADO  
37.055      -104.761      23.8.2011     12:03   2.6           5         COLORADO  
67.968      -146.118      23.8.2011     11:34   3.2           14.6      NORTHERN ALASKA  
37.099      -104.711      23.8.2011     9:37    3.2           5        COLORADO  
37.248      -104.705      23.8.2011     9:32    2.5            5        COLORADO  
 
Проблема в том, что данные на сайте обновляются. В Excel есть замечательная функция обновлять данные каждые n минут, таким образом наши данные будут всегда достоверными, но пробелма в том, что данные данные с сайта не подходят под нужный формат и их нужно чистить:  
На входе мы имеем ячейку:  
2011-08-23   14:35:31.049min ago  
Но после разбивки получаем из нее    
Дату и Время  
 
Однако если теперь время на сайте обновится (в следствие уточнения), то изменится только первая ячейка, но никак не ячейка со значением Времени.  
 
Что я хочу с этим делать. Я хочу в Access сделать сцепленную таблицу и подключить к ней таблицу Excel которая будет автообновляться каждые n минут. Проблема в том, что я не знаю как сделать так, чтобы в базу данных Access попадали только данные в нужном формате.

Есть макрос собирающий данные с сайта.  
Проблема в том, что иногда на сайте не бывает данных и при работе макроса вылетает ошибка: "не выделены данные для разбора"  
http://pic2net.ru/view/v/f2ec71baaca51a40b60a733f856b8247.jpg  
вот сам код  
http://www.everfall.com/paste/id.php?82yveum60uux  
 
как сделать так, чтобы эта ошибка не вылетала, а отсутствие данных для разбора просто игнорилось?

Есть две ячейки  
09.08.2011 3:46:32  
09.08.2011 3:41:37  
 
Нужно увеличить количество часов во второй на 13, при этом сделать это так, чтобы если значение получится больше 24, то увеличилось бы значение в первой ячейки на сутки.

К сожалению с VB не знаком, но нужно сформировать строку следующего вида:  
http://www.ceme.gsras.ru/cgi-bin/ccd_quake_tmp.pl?dat=8-08-2011&x=1&y=1  
 
т.е. просто чтобы в ней была текущая дата. Сам макрос где должна использоваться формироваться эта строка:  
 
   With ActiveSheet.QueryTables.Add(Connection:= _  
       "URL;http://www.ceme.gsras.ru/cgi-bin/ccd_quake_tmp.pl?dat=8-08-2011&x=1&y=1" _  
       , Destination:=Range("$A$1"))  
       .Name = "ccd_quake_tmp.pl?dat=8-08-2011&x=1&y=1"  
 
т.е. надо чтобы при запуске макроса формировался правильный путь на основе текущей системной даты.  
 
Заранее спасибо!

Есть макрос который собирает данные с одного сайта.  
 
   With ActiveSheet.QueryTables.Add(Connection:= _  
       "URL;http://www.ceme.gsras.ru/cgi-bin/ccd_quake_tmp.pl?dat=2-08-2011&x=18&y=1" _  
       , Destination:=Range("$A$1"))  
       .Name = "ccd_quake_tmp.pl?dat=2-08-2011&x=18&y=1"  
       .FieldNames = True  
       .RowNumbers = False  
 
Задача сделать так, чтобы URL который принимал макрос вставлялся из буфера обмена. т.е. есть другое приложение будет формировать адрес, а потом отправлять его в буфер обмена, после чего Excel должен принять эту ссылку и обработать

Делаю макрос который забирает таблицу с сайта (Данные-из Интернет).    
Потом привожу данные к нужному формату т.е. создаю новые столбцы и поочередно копирую в них информацию из старых столбцов. Вроде как оно работало, потом начала вылетать странная ошибка.  
 
"Run-time error '1004':  
Метод PasteSpecial из класса Worksheet завершен неверно"  
 
Ругается на строку :  
   ActiveSheet.PasteSpecial Format:="Текст в кодировке Unicode", Link:=False, _  
       DisplayAsIcon:=False, NoHTMLFormatting:=True  
 
Вот сам макрос http://www.everfall.com/paste/id.php?mt5iunoq6ppx  
Вот сайт с которого беру данные http://www.emsc-csem.org/Earthquake/index.php?view=0

При помощи макроса пытаюсь автоматизировать сбор данных с сайта  
http://www.emsc-csem.org/Earthquake/index.php?view=0  
 
Вот сам макрос http://www.everfall.com/paste/id.php?4mf677lhwy6z  
 
а вот что он сохраняет  
 
http://www.everfall.com/paste/id.php?rs2aoaon8n4q  
 
Не могу понять откуда берется мусор в файле  
вверху файла вылезает:  
Sub emsc(),,,,,,  
 
внизу "    Sheets(""‹Ёбв2"").Select",,,,,, и тд.