З'єднання дублікатів клітин в одну клітинку - об'єднання обох клітин - vba, excel-vba, excel

Я створив таблицю, у формі якого користувач має вводити інформацію про проект та часовий проміжок. Ця інформація надсилається в електронну таблицю бази даних проекту.

Ось що виглядає база даних проекту:

І ось що виглядає моє календар проекту:

Ось що я намагаюся зробити:

Я використовую a = IF (формула ISNUMBER для перевірки значень "Так" або "Ні" під Q1-Q4 і витягує Назва проекту + Ім'я в поле комірки.

Тепер я дивлюся, наприклад, в рядку 4, Q1 іQ2 мають однакове значення, чи існує спосіб об'єднати їх разом, і вони повинні представляти Project Name + Project протягом Q1 та Q2? Може бути, якийсь макрос, який би не руйнував формули, що містяться в кожній клітині?

Я "Googling в околицях" і не мав щастя тільки що.

Відповіді:

Може бути, цей сценарій буде виконувати роботу:

Sub Button1_Click()
Dim row As Integer, col As Integer

For row = 1 To 100
For col = 1 To 100
If Cells(row, col) <> "" And (Cells(row, col) = Cells(row, col + 1)) Then
Cells(row, col + 1).Value = ""
Range(Cells(row, col), Cells(row, col + 1)).Merge
End If
Next col
Next row
End Sub