Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос Сравнение данных+Добавление строки / 12 сообщений из 12, страница 1 из 1
09.08.2011, 14:42
    #37387246
mpetruha
mpetruha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
Добрый день. Помогите пожадуйста написать макрос:
Нужно разделить неодинаковые данные пустой строкой сначало в столбце "А", затем в столбце "В", на протяжении всего листа, независимо от количества заполненных строк в листе. (для примера в приложенном документе разделил первую группу и выделил её красным шрифтом).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 15:04
    #37387329
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
1) что это такое:
mpetruhaнеодинаковые данные

по мне так тут:
73174414O5613336490CU Knit Pant373174414O5613334480CU Knit Pant273174414O5613338500CU Knit Pant173174414O5613340510CU Knit Pant1
данные неодинаковые

2) есть ли хоть какие-то знания и наброски?
mpetruhaПомогите пожадуйста написать макрос:или требуется просто сделать этот макрос с нуля?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 15:05
    #37387335
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
3) это одноразовая задача?

по идее, если это надо сделать один раз, можно обойтись без макроса, сделав это несколькими ручными действиями (формулы, сортировки и вставки строк)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 15:16
    #37387360
mpetruha
mpetruha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
Shocker.Pro, Я извиняюсь, может я не до конца правильно выразился. Неодинаковые данные сначало по столбцу "А", затем по "В", не беря в расчёт данные в других столбцах.
Грубо говоря:
1)Если значение в строке "1" столбца "А" не соответсвует значению в строке 2 столбца "А" > вставить пустую строку
2)Если значение в строке "1" столбца "В" не соответсвует значению в строке 2 столбца "В" > вставить пустую строку

Задача не одноразовая, если б было на один раз я бы и не заикался, а сделал как и раньше в ручную, но теперь это придётся делать каждый день в больших объёмах!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 15:20
    #37387370
mpetruha
mpetruha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
Shocker.Pro, Набросков нет, все мои попытки написать данный макрос не увенчались успехом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 15:28
    #37387396
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
кажется я понял. нужно сгруппировать только те строки в которых данные столбца А и В. если одинаковые то вместе если нет то разбить пустой строкой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 15:44
    #37387432
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
Код: plaintext
1.
2.
3.
4.
5.
Dim i As Integer
For i =  200  To  2  Step - 1 
  If Cells(i,  1 ) <> Cells(i -  1 ,  1 ) Or Cells(i,  2 ) <> Cells(i -  1 ,  2 ) Then
    Cells(i,  1 ).EntireRow.Insert Shift:=xlDown
  End If
Next
как-то так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 16:13
    #37387500
mpetruha
mpetruha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
Shocker.Pro ,Спасибо огроменное! Всё работает!
Shocker.Pro , Если можно ещё один вопрос: Какую книгу (литературу) посоветуете почитать для освоения знаниями по написанию похожих и не только макросов в Office Excel?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 16:16
    #37387508
mpetruha
mpetruha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
А то все мои знания сводятся к интуитивной переделке уже существующих макросов, что очень-очень редко приносит положительный результат!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 16:35
    #37387551
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
не посоветую, не знаю

советую воспользоваться в этом топике поиском по слову "литература"
наверняка уже были обсуждения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 16:59
    #37387604
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
mpetruhaКакую книгу (литературу) посоветуете почитать для освоения знаниями по написанию макросов в Office Excel?См. здесь .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2011, 17:39
    #37387684
mpetruha
mpetruha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос Сравнение данных+Добавление строки
Serge 007 ,Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос Сравнение данных+Добавление строки / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 934ms
Закрыть
start [/forum/search_topic.php?author=table%28%29&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 6ms
get forum list:
 9ms
get settings:
 4ms
get forum list:
 15ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 166ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 677ms
total:  934ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]