Вопрос № 164665: Здраствуйте! в таблице Excel имеются поля №пп, группа, подгруппа, <b>артикул</b>, наименование.. некоторые поля повторяются по <b>артикулу</b>.. вобщем как удалить повторяющиеся во артикулу поля? зы: пробывал с "расширенным фильтром", п...
Вопрос № 164.665
Здраствуйте! в таблице Excel имеются поля №пп, группа, подгруппа, артикул, наименование.. некоторые поля повторяются по артикулу.. вобщем как удалить повторяющиеся во артикулу поля? зы: пробывал с "расширенным фильтром", получается только по 1 столбцу удалить ненужное
Отправлен: 11.04.2009, 16:10
Вопрос задал: Jeqa78 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Megaloman
Здравствуйте, Jeqa78! Идея решения (если Вам и в самом деле надо удалить повторяющиеся по некоторому полю строки): выделяем диапазон ячеек в столбце, среди которых ищем одинаковые значения, запускаем макрос (текст ниже), он оставляет строки с уникальными значениями в выбранных ячейках. В частности, если выделите значения артикулов, то останутся строки с уникальными значениями артикулов.
Код:
NRows = Selection.Rows.Count ' Кол-во выделенных строк N = Selection.Row ' Номер первой выделенной строки NCol = Selection.Columns.Count ' Кол-во выделенных столбцов R = Selection.Column ' Номер первого выделенного столбца
If NRows > 1 And NCol = 1 Then
i = 1 Do While i < NRows Fir = Cells(N + i - 1, R) j = i + 1 Do While j <= NRows Sec = Cells(N + j - 1, R) If Fir <> Sec Then j = j + 1 Else Rows(N + j - 1).Delete NRows = NRows - 1 End If Loop i = i + 1 Loop Else a = MsgBox("Ошибка!
Необходимо выделить диапазон ячеек в одном столбце") End If
--------- Нет времени на медленные танцы
Ответ отправил: Megaloman (статус: Практикант)
Ответ отправлен: 12.04.2009, 01:17
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 247292 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
