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

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

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

Объединить соседние строки с одинаковыми данными с помощью Kutools for 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. Затем нажмите OK, одни и те же данные в столбце A будут объединены. Смотрите скриншот:

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

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

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

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

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

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

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