Доброго времени. Есть два столбца, заполненных текстом (ФИО). Надо сравнить эти два диапазона и если в первом найдены ячейки, не совпадающие со вторым, то их надо добавить во второй столбец. Как это можно сделать?
Доброго времени. Есть два столбца, заполненных текстом (ФИО). Надо сравнить эти два диапазона и если в первом найдены ячейки, не совпадающие со вторым, то их надо добавить во второй столбец. Как это можно сделать?Solo_n
Сравнить эти диапазоны - недостающие данные добавить в второй диапазон Какой вопрос - такой ответ Нет конкретного файла - нет конкретного ответа
Сравнить эти диапазоны - недостающие данные добавить в второй диапазон Какой вопрос - такой ответ Нет конкретного файла - нет конкретного ответа SLAVICK
Файл примерно такой. Лист ФИО2 заполняется вручную. Лист ФИО1 частично заполнен. Надо чтобы при добавлении записи на лист ФИО2 эта запись появлялась на листе ФИО1. На листе ФИО2 данные отсортированы по алфивиту.
Файл примерно такой. Лист ФИО2 заполняется вручную. Лист ФИО1 частично заполнен. Надо чтобы при добавлении записи на лист ФИО2 эта запись появлялась на листе ФИО1. На листе ФИО2 данные отсортированы по алфивиту.Solo_n
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]
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
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