Удаление дубликатов в столбцах (только по вертикали)

@sayka · Регистрация: 25.01.2021

Студворк — интернет-сервис помощи студентам

добрый день. помогите, пож, доработать макрос, или может кто-то сможет подсказать другой макрос.
задача: 5 столбцов в excel. 100 строк.
нужно, чтобы при выделении диапазона макрос удалял все дубликаты в столбце А, к примеру, все буквы Ю в столбце А должны быть удалены за исключением одной. НО. в столбце B эта буква Ю должна остаться. то есть, должно остаться по одной букве Ю в каждом столбце.
сейчас макрос удаляет по горизонтали. если нашел букву Ю в первом столбце - то сносит дубликаты и во всех остальных столбцах.

вот макрос. помогите, пожалуйста)

Option Explicit

Sub Udalenie_Dublikatov_Znachenij()

Dim iCount As Long, i As Long, j As Long, k As Long

Dim Str1 As String, Str2 As String

k = 1

iCount = Selection.Cells.Count

For i = k To iCount

Str1 = CStr(Selection.Cells(i).Value)

If Str1 <> "" Then

For j = i To iCount

Str2 = CStr(Selection.Cells(j).Value)

If i <> j And Str1 = Str2 Then Selection.Cells(j).ClearContents

Next j

End If

Next i

End Sub

@GeoCod · 25.01.2021, 10:29

Сообщение от sayka

5 столбцов в excel. 100 строк

Траволту в студию! =)

Сообщение от sayka

при выделении диапазона макрос удалял все дубликаты в столбце А

А чем штатная функция не устроила?
Данные - Работа с данными - Удалить дубликаты

@sayka · 25.01.2021, 10:40 **[ТС]**

оо... я что только сегодня не пыталась. перечитала половину рунета. пока - бесполезно. моих мозгов явно не хватает.

по поводу штатной - не то немного. мне нужно сразу выделить диапазон и удалить дубликаты. штатная удаляем опять же по горизонтали (или как это правильно называется), если выделен весь диапазон. и сметает то, что сметаться не должно.

вся беда в столбцах D и E.
мне нужно, чтобы повторяющаяся ячейка "МОСКВА ГОРОД, ПОСЕЛЕНИЕ СОСЕНСКОЕ" по одному разу осталась ив в D, и в E

@sayka · 25.01.2021, 10:45 **[ТС]**

вообще, в идеале, конечно,нужен макрос, который бы в выделенном диапазоне удалял сначала дубликаты в столбцах по вертикали, а потом объединял ячейки в столбцах по вертикали в одну.
но это - уж прям совсем в идеале.

пока нашла 2 макроса - один удаляет, другой - объединяет.
но вот с удалением как раз и проблема, по причине которой открыла тему....

@Narimanych · 25.01.2021, 11:58

sayka,
у вас же вся таблица съедет....

@sayka · 25.01.2021, 11:59 **[ТС]**

нет.только значения удаляются, строки остаются. а столбцы я потом по вертикали напротив каждой компании объединяю. мне бы макрос вот..

@Narimanych · 25.01.2021, 15:18

sayka,

Сообщение от sayka

мне бы макрос вот

потом объединял ячейки в столбцах по вертикали в одну.
но это - уж прям совсем в идеале.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub MMM()
Application.DisplayAlerts = False
With Selection
           For j = 1 To .Columns.Count
                    m = 1
                    For i = m To .Rows.Count
                                    If .Cells(i, j).Value <> .Cells(m, j).Value Then
                                                      If i - m > 1 Then
                                                            Range(.Cells(m, j), .Cells(i - 1, j)).Merge
                                                            m = i
                                                       End If
                                    End If
                                   If i = .Rows.Count Then
                                                 If i - m > 1 Then Range(.Cells(m, j), .Cells(i, j)).Merge
                                  End If
                    Next
        Next
End With
Application.DisplayAlerts = True
End Sub

@sayka · 25.01.2021, 16:34 **[ТС]**

спасибо огромное!!

@sayka · 25.01.2021, 17:01 **[ТС]**

подскажите, пож, а почему макрос не работает, когда в двух смежных строках его используешь? при вызове макроса тогда ничего не происходит

@Narimanych · 25.01.2021, 17:03

sayka,
минимум 3 строки

@sayka · 25.01.2021, 17:04 **[ТС]**

подскажите, пожалуйста, а какое значение нужно изменить, чтобы минимально было - 2 строки? это возможно?

@Narimanych · 26.01.2021, 23:03

sayka,

Сообщение от sayka

тобы минимально было - 2 строки? это возможно?

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub VVV()
Application.DisplayAlerts = False
With Selection
If .Rows.Count = 2 Then
For j = 1 To .Columns.Count
      
         If .Cells(1, j).Value = .Cells(2, j).Value Then
            If .Cells(1, j).Value <> 0 And .Cells(2, j).Value <> 0 Then
              Range(.Cells(1, j), .Cells(2, j)).Merge
            End If
         End If
Next
Exit Sub
End If
    For j = 1 To .Columns.Count
       M = 1
       For i = M To .Rows.Count
         
       If Not IsEmpty(.Cells(M, j)) Then
             If i = .Rows.Count Then
                 Range(.Cells(M, j), .Cells(i, j)).Merge
             Else
                 If .Cells(i, j).Value <> .Cells(M, j).Value Then
                     Range(.Cells(M, j), .Cells(i - 1, j)).Merge
                     M = i
                 End If
             End If
             
         End If
       Next
    Next
End With
Application.DisplayAlerts = True
End Sub

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@sayka 0 / 0 / 0 Регистрация: 25.01.2021 Сообщений: 8

	Удаление дубликатов в столбцах (только по вертикали) 25.01.2021, 10:19. Показов 2128. Ответов 11 Метки excel, дубликаты, макрос (Все метки) добрый день. помогите, пож, доработать макрос, или может кто-то сможет подсказать другой макрос. задача: 5 столбцов в excel. 100 строк. нужно, чтобы при выделении диапазона макрос удалял все дубликаты в столбце А, к примеру, все буквы Ю в столбце А должны быть удалены за исключением одной. НО. в столбце B эта буква Ю должна остаться. то есть, должно остаться по одной букве Ю в каждом столбце. сейчас макрос удаляет по горизонтали. если нашел букву Ю в первом столбце - то сносит дубликаты и во всех остальных столбцах. вот макрос. помогите, пожалуйста) Option Explicit Sub Udalenie_Dublikatov_Znachenij() Dim iCount As Long, i As Long, j As Long, k As Long Dim Str1 As String, Str2 As String k = 1 iCount = Selection.Cells.Count For i = k To iCount Str1 = CStr(Selection.Cells(i).Value) If Str1 <> "" Then For j = i To iCount Str2 = CStr(Selection.Cells(j).Value) If i <> j And Str1 = Str2 Then Selection.Cells(j).ClearContents Next j End If Next i End Sub 0

@sayka 0 / 0 / 0 Регистрация: 25.01.2021 Сообщений: 8
	25.01.2021, 10:40 [ТС]
	оо... я что только сегодня не пыталась. перечитала половину рунета. пока - бесполезно. моих мозгов явно не хватает. по поводу штатной - не то немного. мне нужно сразу выделить диапазон и удалить дубликаты. штатная удаляем опять же по горизонтали (или как это правильно называется), если выделен весь диапазон. и сметает то, что сметаться не должно. вся беда в столбцах D и E. мне нужно, чтобы повторяющаяся ячейка "МОСКВА ГОРОД, ПОСЕЛЕНИЕ СОСЕНСКОЕ" по одному разу осталась ив в D, и в E Миниатюры 0

@sayka 0 / 0 / 0 Регистрация: 25.01.2021 Сообщений: 8
	25.01.2021, 10:45 [ТС]
	вообще, в идеале, конечно,нужен макрос, который бы в выделенном диапазоне удалял сначала дубликаты в столбцах по вертикали, а потом объединял ячейки в столбцах по вертикали в одну. но это - уж прям совсем в идеале. пока нашла 2 макроса - один удаляет, другой - объединяет. но вот с удалением как раз и проблема, по причине которой открыла тему.... 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	25.01.2021, 11:58
	sayka, у вас же вся таблица съедет.... 0

@sayka 0 / 0 / 0 Регистрация: 25.01.2021 Сообщений: 8
	25.01.2021, 11:59 [ТС]
	нет.только значения удаляются, строки остаются. а столбцы я потом по вертикали напротив каждой компании объединяю. мне бы макрос вот.. 0

@sayka 0 / 0 / 0 Регистрация: 25.01.2021 Сообщений: 8
	25.01.2021, 16:34 [ТС]
	спасибо огромное!! 0

@sayka 0 / 0 / 0 Регистрация: 25.01.2021 Сообщений: 8
	25.01.2021, 17:01 [ТС]
	подскажите, пож, а почему макрос не работает, когда в двух смежных строках его используешь? при вызове макроса тогда ничего не происходит Миниатюры 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	25.01.2021, 17:03
	sayka, минимум 3 строки 0

@sayka 0 / 0 / 0 Регистрация: 25.01.2021 Сообщений: 8
	25.01.2021, 17:04 [ТС]
	подскажите, пожалуйста, а какое значение нужно изменить, чтобы минимально было - 2 строки? это возможно? 0

Удаление дубликатов в столбцах (только по вертикали)

Решение