Я хотел бы предложить вам код 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 для приложений.
- Нажмите Вставить, затем Модуль и вставьте Код.
- Запустите макрос.
- Когда появится поле ввода, выберите диапазон данных, в котором доступны повторяющиеся значения.
- Закончите с ок.
Вы сделали свою работу.