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

Вход

Регистрация

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

 

= Мир MS Excel/Добавление недостающих данных из одного диапазона в другой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление недостающих данных из одного диапазона в другой (Формулы/Formulas)
Добавление недостающих данных из одного диапазона в другой
Solo_n Дата: Пятница, 05.12.2014, 12:16 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Доброго времени. Есть два столбца, заполненных текстом (ФИО). Надо сравнить эти два диапазона и если в первом найдены ячейки, не совпадающие со вторым, то их надо добавить во второй столбец. Как это можно сделать?
 
Ответить
СообщениеДоброго времени. Есть два столбца, заполненных текстом (ФИО). Надо сравнить эти два диапазона и если в первом найдены ячейки, не совпадающие со вторым, то их надо добавить во второй столбец. Как это можно сделать?
Автор - Solo_n
Дата добавления - 05.12.2014 в 12:16
SLAVICK Дата: Пятница, 05.12.2014, 12:22 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Сравнить эти диапазоны - недостающие данные добавить в второй диапазон :D
Какой вопрос - такой ответ :)
Нет конкретного файла - нет конкретного ответа :p

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеСравнить эти диапазоны - недостающие данные добавить в второй диапазон :D
Какой вопрос - такой ответ :)
Нет конкретного файла - нет конкретного ответа :p
Автор - SLAVICK
Дата добавления - 05.12.2014 в 12:22
DJ_Marker_MC Дата: Пятница, 05.12.2014, 12:28 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Примерно так: скопировать два диапзона друг под друга и удалить дубликаты.
Для большего - нужен файл
 
Ответить
СообщениеПримерно так: скопировать два диапзона друг под друга и удалить дубликаты.
Для большего - нужен файл
Автор - DJ_Marker_MC
Дата добавления - 05.12.2014 в 12:28
Solo_n Дата: Вторник, 09.12.2014, 14:13 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Файл примерно такой. Лист ФИО2 заполняется вручную. Лист ФИО1 частично заполнен. Надо чтобы при добавлении записи на лист ФИО2 эта запись появлялась на листе ФИО1. На листе ФИО2 данные отсортированы по алфивиту.
К сообщению приложен файл: 9986120.xlsx (8.8 Kb)
 
Ответить
СообщениеФайл примерно такой. Лист ФИО2 заполняется вручную. Лист ФИО1 частично заполнен. Надо чтобы при добавлении записи на лист ФИО2 эта запись появлялась на листе ФИО1. На листе ФИО2 данные отсортированы по алфивиту.
Автор - Solo_n
Дата добавления - 09.12.2014 в 14:13
DJ_Marker_MC Дата: Вторник, 09.12.2014, 14:48 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Solo_n, а так не подойдет? Вносите данные на ФИО2 фамилии, потом нажимаете кнопку РАЗНЕСТИ и все которых нет в ФИО1 добавляются туда.

[vba]
Код
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim rng As Range
lAntR = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rng = Range("B2:B" & lAntR)
For Each cell In rng
     If cell = "-" Then
         q = cell.Offset(, -1).Value
         Worksheets("ФИО1").Activate
         iRow = Worksheets("ФИО1").Cells(Rows.Count, 1).End(xlUp).Row + 1
         Worksheets("ФИО1").Cells(iRow, 1).Select
         Selection = q
         Worksheets("ФИО2").Activate
     End If
Next
Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 7567021.xlsm (22.3 Kb)


Сообщение отредактировал DJ_Marker_MC - Вторник, 09.12.2014, 14:50
 
Ответить
СообщениеSolo_n, а так не подойдет? Вносите данные на ФИО2 фамилии, потом нажимаете кнопку РАЗНЕСТИ и все которых нет в ФИО1 добавляются туда.

[vba]
Код
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim rng As Range
lAntR = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rng = Range("B2:B" & lAntR)
For Each cell In rng
     If cell = "-" Then
         q = cell.Offset(, -1).Value
         Worksheets("ФИО1").Activate
         iRow = Worksheets("ФИО1").Cells(Rows.Count, 1).End(xlUp).Row + 1
         Worksheets("ФИО1").Cells(iRow, 1).Select
         Selection = q
         Worksheets("ФИО2").Activate
     End If
Next
Application.ScreenUpdating = True
End Sub
[/vba]
Автор - DJ_Marker_MC
Дата добавления - 09.12.2014 в 14:48
JayBhagavan Дата: Вторник, 09.12.2014, 14:49 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub jjj()
     Application.ScreenUpdating = False
     Set tocopy = Sheets("ФИО1").[A1].CurrentRegion
     Set dest = Sheets("ФИО2").[A1].Offset(Sheets("ФИО2").[A1].CurrentRegion.Rows.Count)
     tocopy.Copy Destination:=dest
     Sheets("ФИО2").[A1].CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
[/vba]

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
 
Ответить
Сообщение[vba]
Код
Sub jjj()
     Application.ScreenUpdating = False
     Set tocopy = Sheets("ФИО1").[A1].CurrentRegion
     Set dest = Sheets("ФИО2").[A1].Offset(Sheets("ФИО2").[A1].CurrentRegion.Rows.Count)
     tocopy.Copy Destination:=dest
     Sheets("ФИО2").[A1].CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
[/vba]
Автор - JayBhagavan
Дата добавления - 09.12.2014 в 14:49
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление недостающих данных из одного диапазона в другой (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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