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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка строк в таблицу по условию сравнения (Макросы/Sub)
Вставка строк в таблицу по условию сравнения
Raid Дата: Воскресенье, 06.01.2019, 11:26 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые специалисты, у меня есть задача, которую, я, так понимаю, можно решить только на VBA (ну или лучше всего на VBA)
Есть два листа. На первом листе есть некоторое количество строк.
На втором листе строк меньше (т.е, в сравнении с первым листом некоторых строк не хватает).

Задача - сделать так, что бы положение имеющихся строк во второй таблице (меньшей) совпадало с первой таблицей. Для этого нужно вставить "недостающие" строки (нужно вставить пустую строку)
К сообщению приложен файл: 7461894.xlsx(14.2 Kb)
 
Ответить
СообщениеУважаемые специалисты, у меня есть задача, которую, я, так понимаю, можно решить только на VBA (ну или лучше всего на VBA)
Есть два листа. На первом листе есть некоторое количество строк.
На втором листе строк меньше (т.е, в сравнении с первым листом некоторых строк не хватает).

Задача - сделать так, что бы положение имеющихся строк во второй таблице (меньшей) совпадало с первой таблицей. Для этого нужно вставить "недостающие" строки (нужно вставить пустую строку)

Автор - Raid
Дата добавления - 06.01.2019 в 11:26
Raid Дата: Воскресенье, 06.01.2019, 12:50 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Методом проб и ошибок получилось так
[vba]
Код
Sub
For C = 2 To 88
If Cells(C, 1) <> Worksheets("Полная).Cells(C, 1) Then
Cells(C, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.FormulaR1C1 = "=Полная!RC"
End If
Next
End Sub
[/vba]
Может не очень красиво, но вроде как работает :)


Сообщение отредактировал Raid - Воскресенье, 06.01.2019, 22:51
 
Ответить
СообщениеМетодом проб и ошибок получилось так
[vba]
Код
Sub
For C = 2 To 88
If Cells(C, 1) <> Worksheets("Полная).Cells(C, 1) Then
Cells(C, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.FormulaR1C1 = "=Полная!RC"
End If
Next
End Sub
[/vba]
Может не очень красиво, но вроде как работает :)

Автор - Raid
Дата добавления - 06.01.2019 в 12:50
Pelena Дата: Воскресенье, 06.01.2019, 20:11 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 13485
Репутация: 2971 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Raid, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеRaid, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 06.01.2019 в 20:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка строк в таблицу по условию сравнения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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