«Объединение клеток» в таблице

Question

У меня есть лист Excel, в котором есть несколько сущностей, которые определяются их «номером работы». Однако мне нужно несколько строк на задание, что означает, что столбец будет иметь дубликаты, такие как в

Есть ли способ объединить каждую группу с одинаковым номером работы, чтобы они были «одной» строкой? это то, что является предпочтительным макетом.

Примечание. Каждое задание гарантированно будет 3 рядами, поэтому оно всегда будет следовать одному и тому же шаблону. Есть ли способ сделать это?

Answer 1

Попробуйте этот код:

Sub Test() TitleRow = 1 'if title contain more than one row, change the value 1 to the actual number of rows i = 0 Application.DisplayAlerts = False Do Set StartCell = ActiveSheet.Range("A" & (TitleRow + 3 * i + 1)) Set EndCell = ActiveSheet.Range("A" & (TitleRow + 3 * i + 3)) With ActiveSheet.Range(StartCell, EndCell) .Merge .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter End With i = i + 1 Loop Until Range("A" & (TitleRow + 3 * i) + 1) = "" Application.DisplayAlerts = True End Sub

Answer 2

Это можно легко сделать с помощью макроса или VBA. Редактируйте приведенный ниже код в VBA в соответствии с вашими требованиями.

Range("A1:A3").Выбрать с помощью выбора.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.WrapText = False.Ориентация = 0.AddIndent = False.IndentLevel = 0.ShrinkToFit = False.ReadingOrder = xlContext.MergeCells = False End With Selection.Слияние с выбором.HorizontalAlignment = xlCenter