Удаление дубликатов из строки, цикл

@serviktor · Регистрация: 03.04.2018

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

Необходимо в каждой строке убрать дубликаты (4 ячейки подряд, а не одна), но удалять не все, "оригинал" (4 ячейки) оставить. Все копии удалить.

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub mac()
    LR = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    For j = 10 To LR
        For i = 5 To 20 Step 4
            For q = 9 To 20 Step 4
                If IsEmpty(Cells(i, j)) = False Then
                    If i <> q Then
                        If Cells(j, i) = Cells(j, q) And Cells(j, i + 1) = Cells(j, q + 1) And Cells(j, i + 2) = Cells(j, q + 2) And Cells(j, i + 3) = Cells(j, q + 3) Then
                        Cells(j, q).Clear
                        Cells(j, q + 1).Clear
                        Cells(j, q + 2).Clear
                        Cells(j, q + 3).Clear
                        End If
                    End If
                End If
            Next q
        Next i
    Next j
End Sub

Код почему-то не работает как положено

@Narimanych · 28.01.2021, 22:57

serviktor,

АПокажите на 2 листе,что нужно получить

@serviktor · 28.01.2021, 23:14 **[ТС]**

Narimanych,

@serviktor · 28.01.2021, 23:20 **[ТС]**

Narimanych, нашел в Excel стандартную функцию удаления дубликатов, но ничего с этим сделать не получилось

Visual Basic
1
2
3
 Range("E10:T40").Select
    ActiveSheet.Range("$E$10:$P$40").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _
        7, 8, 9, 10, 11, 12), Header:=xlNo

Думал как-нибудь с помощью массивов, но всё что я смог - это перебор условий для каждой из ячеек

@Narimanych · 28.01.2021, 23:54

serviktor,
Попробуйте и отпишитесь:

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
Public Sub mac()
Dim ARR(1 To 4)
 LR = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
 LC = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
 With CreateObject("Scripting.Dictionary")
    For i = 10 To LR
      For J = 5 To LC Step 4
          If Not IsEmpty(Cells(i, J)) Then
              For Z = 0 To 3
               ARR(Z + 1) = Cells(i, J + Z).Value
               Next
                S = Join(ARR, ";")
                EL = .Item(S)
          End If
      Next
      M = 5
      Range(Cells(i, 5), Cells(i, LC)).ClearContents
      For X = 0 To .Count - 1
          S = Split(.keys()(X), ";")
           For N = 0 To 3
                 Cells(i, M + N) = S(N)
           Next
           M = M + 4
      Next
      .RemoveAll
    Next
 End With
End Sub

@serviktor · 29.01.2021, 00:23 **[ТС]**

Narimanych, всё работает именно таким образом, как я планировал большое спасибо)
Только не могу понять, зачем задается разделитель в 19-й строке...

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

S = Split(.keys()(X), ";")

@Zeag · 29.01.2021, 00:46

serviktor, потому что в 12-й Join через точку с запятой.

@serviktor · 29.01.2021, 01:15 **[ТС]**

Zeag, понял, спасибо, не заметил что еще в 19-й строке S

@Narimanych · 29.01.2021, 01:25

serviktor,
В 14 строке S as string
а в 19- уже нет- там уже массив...

В 14 Объединяем значения 4-х ячеек в одну переменную ( дубли же по 4 ячейкам?)
записываем в словарь уникальные
Ну а потом, чтобы раскидать по ячейкам , в строке 19 раскидываем в массив значения из строки ,разделенные точкой с запятой...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	28.01.2021, 22:57
	serviktor, АПокажите на 2 листе,что нужно получить 0

@Zeag 859 / 509 / 187 Регистрация: 09.03.2009 Сообщений: 1,722
	29.01.2021, 00:46
	serviktor, потому что в 12-й Join через точку с запятой. 0

@serviktor 5 / 4 / 1 Регистрация: 03.04.2018 Сообщений: 113
	29.01.2021, 01:15 [ТС]
	Zeag, понял, спасибо, не заметил что еще в 19-й строке S 0

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	29.01.2021, 01:25
	serviktor, В 14 строке S as string а в 19- уже нет- там уже массив... В 14 Объединяем значения 4-х ячеек в одну переменную ( дубли же по 4 ячейкам?) записываем в словарь уникальные Ну а потом, чтобы раскидать по ячейкам , в строке 19 раскидываем в массив значения из строки ,разделенные точкой с запятой... 1

Удаление дубликатов из строки, цикл

Решение