用于合并同一行中多个列中的单元格的宏

Question

我正在创建一种数据库，如果您愿意，并且我在一行中有多个列需要合并，并且想知道是否可以使用宏来做到这一点。

更加困难的是，合并单元的数量不是恒定的。 IE浏览器：

  1 A   B   C   MARY JO         50  main office     admin

  2 A   B   C   MARY JO         50  main office     admin

  3 A   B   C   MARY JO         50  main office     admin

  1 A   B   C   JOHN DOE        60  OTHER office    driver

  2 A   B   C   JOHN DOE        60  OTHER office    driver

合并行1-3和4-5是理想的结果。 没有发布图片的能力很难解释，但是A和Z列开始要取消合并，因为每一行的信息都显示在这些列中。

现在看起来像什么：

期望的最终结果：

Answer 1

尝试这样的事情：

Private Sub MergeTheseCellsToMakeSomethingLikeADatabase()
    'Crucial Line Below
    Application.DisplayAlerts = False
    Dim i%
    With ThisWorkbook.Sheets("Sheet1")
       For i = .UsedRange.Rows.Count to 2 Step -1
          If .Cells(i,4).Value = .Cells(i-1,4).Value Then
             .Range(.Cells(i,2),.Cells(i-1,2)).Merge
             .Range(.Cells(i,3),.Cells(i-1,3)).Merge
             .... 
             'Do this for all rows that are relevant or just have another for loop to cycle
             'Through the rows that you want merged      
          End If
       Next
    End With
End Sub

Answer 2

为什么不使用另一个工作表上的公式来执行此操作以创建所需的结果-除非您要尝试使整个过程自动化，否则可能不需要宏。 如果这只是一次，那么宏肯定是过大了。

只需通过诸如以下的创造力公式，即可创建具有所需细胞组合的菌落：

= A1＆A3等

用＆代替+将文本单元格连接在一起（连接）

复制每一列的formuala，然后完成...几乎...

现在您可以担心合并行

翅膀

Answer 3

您是否要删除重复的行？ 如果是这样，请突出显示您的数据范围，然后从菜单中选择“数据”。 在“数据”功能区上，转到“排序和过滤器”部分，然后单击“高级”。 在高级过滤器对话框中，选择“复制到另一个位置”，确保“列表”范围已选择您的数据，在“复制到”框中，选择要过滤的列表的位置，然后勾选仅用于唯一记录的框。 单击确定并完成作业。