Как быстро объединить соседние строки с одинаковыми данными в Excel?

Предположим, у вас есть лист с одинаковыми данными в соседних строках, и вы хотите объединить одинаковые ячейки в одну, чтобы данные выглядели аккуратно и красиво. Как быстро и удобно объединить соседние строки с одинаковыми данными? Сегодня я представлю вам несколько быстрых способов решения этой проблемы.

Объединение соседних строк с одинаковыми данными с помощью кода VBA

Объединение соседних строк с одинаковыми данными с помощью Kutools для Excel

Разъединение ячеек и заполнение дублирующимися значениями в Excel

Объединение соседних строк с одинаковыми данными с помощью кода VBA

Конечно, вы можете объединить одинаковые данные с помощью команды «Объединить и выровнять по центру», но если нужно объединить сотни ячеек, этот метод будет отнимать много времени. Поэтому следующий код VBA поможет вам легко объединить одинаковые данные.

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модуль и вставьте следующий макрос в окно Модуля.

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код. На экране появится диалоговое окно для выбора диапазона. См. скриншот:

4. Затем нажмите ОК, и одинаковые данные в столбце A будут объединены вместе. См. скриншот:

Объединение соседних строк с одинаковыми данными с помощью Kutools для Excel

С помощью утилиты Объединить одинаковые ячейки из Kutools для Excel вы можете быстро объединить одинаковые значения в нескольких столбцах одним щелчком мыши.

После установки Kutools для Excel вы можете сделать следующее:

1. Выберите столбцы, в которых вы хотите объединить соседние строки с одинаковыми данными.

2. Нажмите Kutools > Объединить и разделить > Объединить одинаковые ячейки, см. скриншот:

3. После этого одинаковые данные в выбранных столбцах будут объединены в одну ячейку. См. скриншот:

Нажмите, чтобы скачать Kutools для Excel и начать бесплатную пробную версию прямо сейчас!