Сравнение столбцов на разных листах и перенос строк

Вход

Регистрация

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

= Мир MS Excel/Сравнение столбцов на разных листах и перенос строк - Мир MS Excel

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

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

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

Сравнение столбцов на разных листах и перенос строк

skyfors

Дата: Среда, 29.01.2020, 17:22 | Сообщение № 1

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

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

Сообщений: 16

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

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

Excel 2010

Здравствуйте, уважаемые форумчане, очень прошу помочь с такой проблемой.
Нужно перенести с листа2 на лист1 строки, которых нет на листе1, сравнение должно происходить по первому столбцу.

тема есть на другом форуме, но там ответ дали лишь формулой, а нужен макрос.
https://u.to/uthXFw

К сообщению приложен файл: 6302896.xls (30.0 Kb)

Сообщение отредактировал skyfors - Среда, 29.01.2020, 17:22

Ответить

Kuzmich

Дата: Пятница, 31.01.2020, 20:33 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

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

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

Excel 2003

Цитата

нужен макрос

Макрос в стандартный модуль, запускать при активном листе Лист2
[vba]

Код

Sub Perenos()
Dim i As Long
Dim iLastRow As Long
Dim iLR As Long
Dim FoundCell As Range
   iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
With Worksheets("Лист1")
  For i = 1 To iLastRow
    Set FoundCell = .Columns(1).Find(Cells(i, "A"), , xlValues, xlWhole)
     If FoundCell Is Nothing Then
       iLR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
       Range("A" & i & ":E" & i).Copy .Cells(iLR, "A")
     End If
  Next
End With
End Sub

[/vba]

Ответить

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

Страница 1 из 1
1