Объединение столбцов на основе определенного значения

Question

Я работаю над листом Excel, где мне нужно объединить ячейки по номеру транспортного средства. Если в двух или более последовательных ячейках есть один и тот же номер транспортного средства, тогда мне нужно объединить ячейки справа от номера транспортного средства. У меня есть огромный файл, который содержит 200 номеров автомобилей. Таким образом, объединение ячеек на основе каждого транспортного средства является трудоемкой задачей. Есть ли способ упростить это. Я приложил скриншот моего листа Excel.

Скриншот

Answer 1

Я хотел бы предложить вам код VBA для достижения вашей цели, поскольку это лучший и самый простой из возможных методов применения.

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

Проверьте снимок экрана:

Sub MergeSameCell()

Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "Merge Cells In Excel"
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, 2), Rng.Cells(j - 1, 2)).Merge
        WorkRng.Parent.Range(Rng.Cells(i, 3), Rng.Cells(j - 1, 3)).Merge
        WorkRng.Parent.Range(Rng.Cells(i, 4), Rng.Cells(j - 1, 4)).Merge
        i = j - 1

    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Как использовать код:

• Нажмите и удерживайте клавиши ALT + F11, и откроется окно Microsoft Visual Basic для приложений.
• Нажмите Вставить, затем Модуль и вставьте Код.
• Запустите макрос.
• Когда появится поле ввода, выберите диапазон данных, в котором доступны повторяющиеся значения.
• Готово с ок.

Вы сделали работу.