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

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

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

добрый день. помогите, пож, доработать макрос, или может кто-то сможет подсказать другой макрос.
задача: 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

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

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

@sayka 0 / 0 / 0 Регистрация: 25.01.2021 Сообщений: 8
		1
	Удаление дубликатов в столбцах (только по вертикали) 25.01.2021, 10:19. Показов 1888. Ответов 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

@GeoCod 237 / 148 / 41 Регистрация: 26.01.2019 Сообщений: 545
	25.01.2021, 10:29	2
	Сообщение от sayka 5 столбцов в excel. 100 строк Траволту в студию! =) Сообщение от sayka при выделении диапазона макрос удалял все дубликаты в столбце А А чем штатная функция не устроила? Данные - Работа с данными - Удалить дубликаты Изображения 0

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

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

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

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

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

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

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	25.01.2021, 17:03	10
	sayka, минимум 3 строки 0

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

	26.01.2021, 23:03

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

Решение