Добрый день! Помогите, пожалуйста, решить проблему. Необходимо перенести значения из одно столбца в другой удаляя те значения, которые есть в третьем столбце.
Добрый день! Помогите, пожалуйста, решить проблему. Необходимо перенести значения из одно столбца в другой удаляя те значения, которые есть в третьем столбце.AVI
Cпасибо Pelena, я не уточнил, простите. В столбце б может быть и два, и три, и семь лет. Я знаю, что, вроде, можно ИНДЕКС'ом установить динамический диапазон, но как не понимаю. Фильтр не подходит, к сожалению
Cпасибо Pelena, я не уточнил, простите. В столбце б может быть и два, и три, и семь лет. Я знаю, что, вроде, можно ИНДЕКС'ом установить динамический диапазон, но как не понимаю. Фильтр не подходит, к сожалениюAVI
Алексей, давайте для начала определимся - у Вас тема называется "Перенос уникальных значений ...", а в примере и так все значения в столбце А уникальные. Там могут быть повторы или нет? Если повторы там есть, то выводить в столбец С уникальные или все? И еще до кучи вопросы: 1. У Вас там именно года в числовом формате? 2. Данные в столбцах А и В всегда расположены по убыванию? 3. Итоговые значения (в столбце С) Вым нужны именно в том порядке, в каком они в столбце А? Или можно в другом (например, по возрастанию - 2010, 2011,...)? 4. Есть ли шапка в таблице (в А1, В1 и С1)? Кстати, лучше было бы, чтобы Вы приложили реальный файл (конф. информацию можно заменить на произвольную).
Алексей, давайте для начала определимся - у Вас тема называется "Перенос уникальных значений ...", а в примере и так все значения в столбце А уникальные. Там могут быть повторы или нет? Если повторы там есть, то выводить в столбец С уникальные или все? И еще до кучи вопросы: 1. У Вас там именно года в числовом формате? 2. Данные в столбцах А и В всегда расположены по убыванию? 3. Итоговые значения (в столбце С) Вым нужны именно в том порядке, в каком они в столбце А? Или можно в другом (например, по возрастанию - 2010, 2011,...)? 4. Есть ли шапка в таблице (в А1, В1 и С1)? Кстати, лучше было бы, чтобы Вы приложили реальный файл (конф. информацию можно заменить на произвольную)._Boroda_
Sub povtor() Range("A2:A" & Worksheets(1).Cells(1, 2).CurrentRegion.Rows.Count).Select Selection.Copy: Range("E2").Select: ActiveSheet.Paste
For i = 2 To Worksheets(1).Cells(2, 1).CurrentRegion.Rows.Count For j = 2 To Worksheets(1).Cells(2, 3).CurrentRegion.Rows.Count n: If Worksheets(1).Cells(i, 3) = Worksheets(1).Cells(j, 5) Then Worksheets(1).Cells(j, 5).Delete Shift:=xlUp: GoTo n Next Next End Sub
[/vba]
Добрый день, если подойдет макрос
[vba]
Код
Sub povtor() Range("A2:A" & Worksheets(1).Cells(1, 2).CurrentRegion.Rows.Count).Select Selection.Copy: Range("E2").Select: ActiveSheet.Paste
For i = 2 To Worksheets(1).Cells(2, 1).CurrentRegion.Rows.Count For j = 2 To Worksheets(1).Cells(2, 3).CurrentRegion.Rows.Count n: If Worksheets(1).Cells(i, 3) = Worksheets(1).Cells(j, 5) Then Worksheets(1).Cells(j, 5).Delete Shift:=xlUp: GoTo n Next Next End Sub
_Boroda_, Добрый день! Переформулирую задачу: в столбец С попадают только те года из столбца А, которых нет в столбце B. Это я и подразумевал под словом "уникальные"
3. Итоговые значения (в столбце С) Вым нужны именно в том порядке, в каком они в столбце А? Или можно в другом (например, по возрастанию - 2010, 2011,...)?
4. Есть ли шапка в таблице (в А1, В1 и С1)? Кстати, лучше было бы, чтобы Вы приложили реальный файл (конф. информацию можно заменить на произвольную).
Шапок нет. Файл-пример я делаю максимально приближенным к "боевому", поэтому заливать рабочий файл смысла нет.
Да и размер диапазона в столбце А не меняется: только семь ячеек. Я могу добавить какие угодно столбцы, шапки, форматы. Лишь бы работало
_Boroda_, Добрый день! Переформулирую задачу: в столбец С попадают только те года из столбца А, которых нет в столбце B. Это я и подразумевал под словом "уникальные"
3. Итоговые значения (в столбце С) Вым нужны именно в том порядке, в каком они в столбце А? Или можно в другом (например, по возрастанию - 2010, 2011,...)?