将重复细胞合并到一个细胞中 - 组合两个细胞

Question

我创建了一个电子表格，其中包含用户表单，供人们输入项目信息和时间长度。此信息将输入项目数据库电子表格。

这就是项目数据库的样子：

这就是我的项目日历的样子：

这就是我要做的事情：

我正在使用= IF（ISNUMBER公式来检查Q1-Q4下的“是”或“否”值，并将项目名称+名称拉入单元格字段。

现在我想知道，例如在第4行，Q1和Q2具有相同的值，有没有办法将它们合并在一起并让它们代表Q1和Q2的项目名称+项目？也许某种宏不会破坏每个单元格中包含的公式？

我一直在谷歌上搜索，还没有运气。

Answer 1

也许这个脚本可以完成这项工作：

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