Здравствуйте. Стоит задача очистить значения в дублях, но сохранить строки. Пример 4092174382 4092174382 4092174382 4092174383 4092174383 4092174383 4092174384 4092174384 4092174384 Нужно просто очистить значения дублированных ячеек, не удаляя при этом строки, сделать строки в дублях пустыми. Вручную очень долго. Есть ли какое-либо простое решение?
Здравствуйте. Стоит задача очистить значения в дублях, но сохранить строки. Пример 4092174382 4092174382 4092174382 4092174383 4092174383 4092174383 4092174384 4092174384 4092174384 Нужно просто очистить значения дублированных ячеек, не удаляя при этом строки, сделать строки в дублях пустыми. Вручную очень долго. Есть ли какое-либо простое решение?Tatyana81
Sub U__815() Application.ScreenUpdating = 0 s = Cells(Rows.Count, 1).End(xlUp).Row For Each c In Range("a1:a" & s) On Error Resume Next If Application.Match(c, Range("a1:a" & s), 0) <> c.Row Then c.ClearContents End If Next Application.ScreenUpdating = 1 End Sub
[/vba]
[vba]
Код
Sub U__815() Application.ScreenUpdating = 0 s = Cells(Rows.Count, 1).End(xlUp).Row For Each c In Range("a1:a" & s) On Error Resume Next If Application.Match(c, Range("a1:a" & s), 0) <> c.Row Then c.ClearContents End If Next Application.ScreenUpdating = 1 End Sub
можно по формуле =счётеслимн(выбрать диапазон (до строчки которую проверяем), верхний закрепить;условие на против строчки которую проверяем) после фильтрануть по тем что не равны 0 и почистить данные
можно по формуле =счётеслимн(выбрать диапазон (до строчки которую проверяем), верхний закрепить;условие на против строчки которую проверяем) после фильтрануть по тем что не равны 0 и почистить данныеZhuravlev_IV
Удалить дубли в нескольких столбцах. Сейчас приведу пример 4094277531 Двигатели Цена Описание Комментарии 4094277531 Двигатели Цена Описание Комментарии 4094277532 Бензопилы Цена Описание Комментарии 4094277532 Бензопилы Цена Описание Комментарии Пять столбцов. Каждая строка повторяется несколько раз. Нужно удалить дубли так, чтобы строки не удалились, а остались пустыми. Я потом их скрываю через фильтр для удобства работы, но они нужны. Я думала, что есть простая операция очистки дублей. Поэтому сначала привела пример на одном столбце.
Удалить дубли в нескольких столбцах. Сейчас приведу пример 4094277531 Двигатели Цена Описание Комментарии 4094277531 Двигатели Цена Описание Комментарии 4094277532 Бензопилы Цена Описание Комментарии 4094277532 Бензопилы Цена Описание Комментарии Пять столбцов. Каждая строка повторяется несколько раз. Нужно удалить дубли так, чтобы строки не удалились, а остались пустыми. Я потом их скрываю через фильтр для удобства работы, но они нужны. Я думала, что есть простая операция очистки дублей. Поэтому сначала привела пример на одном столбце.Tatyana81
Сообщение отредактировал Tatyana81 - Среда, 28.06.2017, 12:05
Есть. Кнопочка "Удалить дубликаты". Но я так понял, что вы незря говорите о том, "чтобы строки не удалились". Видимо, вы "чистите таблицу", но у вас к ней привязаны другие ссылки, которые каким-то образом требуют неизменного количества строк... и в этом-то как раз и состоит ошибка - если уж подходить к данным таблицы как к "данным" - то это структуру столбцов в ней обычно нельзя менять, а вот про количество и порядок "строк" как раз нужно думать таким образом, что они динамические (могут меняться количественно, и поступать в любом порядке). И тогда даже любые "стандартные средства", о которых вы "даже думали" - будут работать, и будут работать правильно...
P.S. немного дополню насчет "строк" - если вы представляете себе лист книги как "бумажную таблицу" - то уж, будьте добры, представляйте правильно - что на листе есть миллион строк и 16к столбцов, а вы просто где-то в этом пространстве нарисовали рамочки...
Есть. Кнопочка "Удалить дубликаты". Но я так понял, что вы незря говорите о том, "чтобы строки не удалились". Видимо, вы "чистите таблицу", но у вас к ней привязаны другие ссылки, которые каким-то образом требуют неизменного количества строк... и в этом-то как раз и состоит ошибка - если уж подходить к данным таблицы как к "данным" - то это структуру столбцов в ней обычно нельзя менять, а вот про количество и порядок "строк" как раз нужно думать таким образом, что они динамические (могут меняться количественно, и поступать в любом порядке). И тогда даже любые "стандартные средства", о которых вы "даже думали" - будут работать, и будут работать правильно...
P.S. немного дополню насчет "строк" - если вы представляете себе лист книги как "бумажную таблицу" - то уж, будьте добры, представляйте правильно - что на листе есть миллион строк и 16к столбцов, а вы просто где-то в этом пространстве нарисовали рамочки...AndreTM
Skype: andre.tm.007 Donate: Qiwi: 9517375010
Сообщение отредактировал AndreTM - Среда, 28.06.2017, 12:36
Sub U__815() Application.ScreenUpdating = 0 s = Cells(Rows.Count, 3).End(xlUp).Row For Each c In Range("c1:c" & s) On Error Resume Next If Application.Match(c, Range("c1:c" & s), 0) <> c.Row Then c.ClearContents 'это "первый" столбец C c.Offset(0, 1).ClearContents 'смещаемся на 1 лт первого = D c.Offset(0, 3).ClearContents 'F c.Offset(0, 5).ClearContents 'H End If Next Application.ScreenUpdating = 1 End Sub
[/vba]
[vba]
Код
Sub U__815() Application.ScreenUpdating = 0 s = Cells(Rows.Count, 3).End(xlUp).Row For Each c In Range("c1:c" & s) On Error Resume Next If Application.Match(c, Range("c1:c" & s), 0) <> c.Row Then c.ClearContents 'это "первый" столбец C c.Offset(0, 1).ClearContents 'смещаемся на 1 лт первого = D c.Offset(0, 3).ClearContents 'F c.Offset(0, 5).ClearContents 'H End If Next Application.ScreenUpdating = 1 End Sub
Всем большое спасибо)) Ваши решения очень помогли. На двух таблицах использовала два способа и произошли ожидаемые изменения. Приятно, что мужчины откликнулись помочь непонимающей девушке. Теперь вкладка Разработчик красуется в моем екселе))
Всем большое спасибо)) Ваши решения очень помогли. На двух таблицах использовала два способа и произошли ожидаемые изменения. Приятно, что мужчины откликнулись помочь непонимающей девушке. Теперь вкладка Разработчик красуется в моем екселе))Tatyana81