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

Вход

Регистрация

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

 

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

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

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

тема есть на другом форуме, но там ответ дали лишь формулой, а нужен макрос.
https://u.to/uthXFw
К сообщению приложен файл: 6302896.xls(30.0 Kb)


Сообщение отредактировал skyfors - Среда, 29.01.2020, 17:22
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане, очень прошу помочь с такой проблемой.
Нужно перенести с листа2 на лист1 строки, которых нет на листе1, сравнение должно происходить по первому столбцу.

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

Автор - skyfors
Дата добавления - 29.01.2020 в 17:22
Kuzmich Дата: Пятница, 31.01.2020, 20:33 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 464
Репутация: 95 ±
Замечаний: 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]
 
Ответить
Сообщение
Цитата
нужен макрос

Макрос в стандартный модуль, запускать при активном листе Лист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]

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

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