Вставка строк в таблицу по условию сравнения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка строк в таблицу по условию сравнения (Макросы/Sub)

Raid

Дата: Воскресенье, 06.01.2019, 11:26 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 365

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

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

К сообщению приложен файл: 7461894.xlsx (14.2 Kb)

Ответить

Raid

Дата: Воскресенье, 06.01.2019, 12:50 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 365

Методом проб и ошибок получилось так
[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]
Может не очень красиво, но вроде как работает