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

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

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

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

Задача не одноразовая, если б было на один раз я бы и не заикался, а сделал как и раньше в ручную, но теперь это придётся делать каждый день в больших объёмах!
...
Рейтинг: 0 / 0
09.08.2011, 15:16
| Ответить | Цитировать | Написать  
макрос Сравнение данных+Добавление строки
    #37387370
mpetruha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mpetruha
Гость
Shocker.Pro, Набросков нет, все мои попытки написать данный макрос не увенчались успехом.
...
Рейтинг: 0 / 0
09.08.2011, 15:20
| Ответить | Цитировать | Написать  
макрос Сравнение данных+Добавление строки
    #37387396
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
кажется я понял. нужно сгруппировать только те строки в которых данные столбца А и В. если одинаковые то вместе если нет то разбить пустой строкой.
...
Рейтинг: 0 / 0
09.08.2011, 15:28
| Ответить | Цитировать | Написать  
макрос Сравнение данных+Добавление строки
    #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, 15:44
| Ответить | Цитировать | Написать  
макрос Сравнение данных+Добавление строки
    #37387500
mpetruha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mpetruha
Гость
Shocker.Pro ,Спасибо огроменное! Всё работает!
Shocker.Pro , Если можно ещё один вопрос: Какую книгу (литературу) посоветуете почитать для освоения знаниями по написанию похожих и не только макросов в Office Excel?
...
Рейтинг: 0 / 0
09.08.2011, 16:13
| Ответить | Цитировать | Написать  
макрос Сравнение данных+Добавление строки
    #37387508
mpetruha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mpetruha
Гость
А то все мои знания сводятся к интуитивной переделке уже существующих макросов, что очень-очень редко приносит положительный результат!
...
Рейтинг: 0 / 0
09.08.2011, 16:16
| Ответить | Цитировать | Написать  
макрос Сравнение данных+Добавление строки
    #37387551
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
не посоветую, не знаю

советую воспользоваться в этом топике поиском по слову "литература"
наверняка уже были обсуждения.
...
Рейтинг: 0 / 0
09.08.2011, 16:35
| Ответить | Цитировать | Написать  
макрос Сравнение данных+Добавление строки
    #37387604
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
mpetruhaКакую книгу (литературу) посоветуете почитать для освоения знаниями по написанию макросов в Office Excel?См. здесь .
...
Рейтинг: 0 / 0
09.08.2011, 16:59
| Ответить | Цитировать | Написать  
макрос Сравнение данных+Добавление строки
    #37387684
mpetruha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mpetruha
Гость
Serge 007 ,Спасибо!
...
Рейтинг: 0 / 0
09.08.2011, 17:39
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос Сравнение данных+Добавление строки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37387432&tid=2176603]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 171ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 233ms
total:  504ms
созд. / загр.: 504ms
x
x
Закрыть


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