Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставка строк при условии совпадения ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка строк при условии совпадения ячеек
Вставка строк при условии совпадения ячеек
FiFaLa Дата: Вторник, 05.02.2013, 22:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Добрый вечер знатоки, прошу Вашей помощи.
Нужно сравнить столбец J со столбцом I и вставить в результате пустые строки. Подробнее в примере
К сообщению приложен файл: 2398367.xlsx (12.8 Kb)
 
Ответить
СообщениеДобрый вечер знатоки, прошу Вашей помощи.
Нужно сравнить столбец J со столбцом I и вставить в результате пустые строки. Подробнее в примере
Автор - FiFaLa
Дата добавления - 05.02.2013 в 22:21
AlexM Дата: Вторник, 05.02.2013, 22:58 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
А если не сравнивать два столбца, а просто добавить строки, если отсутствуют номера?


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеА если не сравнивать два столбца, а просто добавить строки, если отсутствуют номера?
Автор - AlexM
Дата добавления - 05.02.2013 в 22:58
FiFaLa Дата: Вторник, 05.02.2013, 23:18 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Можно и не сравнивать ) Главное результат, я не спец в экселе...
 
Ответить
СообщениеМожно и не сравнивать ) Главное результат, я не спец в экселе...
Автор - FiFaLa
Дата добавления - 05.02.2013 в 23:18
AlexM Дата: Вторник, 05.02.2013, 23:41 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
У вас в столбце J номера не подряд, поэтому делаем сравнением.
Код макроса
[vba]
Код
Sub Macros()
Dim i As Long
For i = 2 To Range("J2").End(xlDown).Row
     If CLng(Right(Range("I" & i), 3)) <> Range("J" & i) Then Range("A" & i & ":I" & i).Insert Shift:=xlDown
Next i
End Sub
[/vba]

См. файл.
К сообщению приложен файл: 2398367.xls (45.5 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Вторник, 05.02.2013, 23:42
 
Ответить
СообщениеУ вас в столбце J номера не подряд, поэтому делаем сравнением.
Код макроса
[vba]
Код
Sub Macros()
Dim i As Long
For i = 2 To Range("J2").End(xlDown).Row
     If CLng(Right(Range("I" & i), 3)) <> Range("J" & i) Then Range("A" & i & ":I" & i).Insert Shift:=xlDown
Next i
End Sub
[/vba]

См. файл.
Автор - AlexM
Дата добавления - 05.02.2013 в 23:41
FiFaLa Дата: Вторник, 05.02.2013, 23:55 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Гениально! Огромнейшее спасибо!
 
Ответить
СообщениеГениально! Огромнейшее спасибо!
Автор - FiFaLa
Дата добавления - 05.02.2013 в 23:55
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка строк при условии совпадения ячеек
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!