低版本Excel合并重复URL对应颜色：内置函数或VBA实现咨询

一、用内置函数实现（无需VBA） #

假设数据在A列（URL）、B列（颜色），表头在第1行，数据从第2行开始。通过辅助列就能实现需求：

1. 添加辅助列C

   • 在C2单元格输入公式：

     =IF(A2=A1,C1&", "&B2,B2)
     

   • 逻辑：如果当前行URL和上一行一致，就把上一行辅助列的内容加逗号和当前颜色；如果不一致，直接取当前颜色。
   • 下拉填充到所有数据行。

2. 提取最终结果

   • 添加辅助列D，在D2输入公式：

     =IF(A2<>A3,C2,"")
     

   • 逻辑：如果当前行URL和下一行不同，就把辅助列C的内容作为合并结果；否则留空。
   • 下拉填充后，D列非空单元格就是对应唯一URL的合并颜色。

3. 整理结果

   • 复制A列和D列的非空行到新区域，就是最终的合并好的数据集。

二、用VBA代码实现（一键批量处理） #

如果数据量较大，函数方法太繁琐，直接用VBA代码一键处理：

1. 打开VBA编辑器：按Alt + F11组合键。
2. 插入模块：右键点击当前工作簿，选择「插入」→「模块」。
3. 粘贴代码：

   Sub MergeSameURLColors()
       Dim ws As Worksheet
       Dim lastRow As Long
       Dim i As Long
       Dim currentURL As String
       Dim colorList As String
       
       ' 指定要处理的工作表，可根据实际修改Sheet名称
       Set ws = ThisWorkbook.Sheets("Sheet1")
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
       
       ' 初始化第一行数据
       currentURL = ws.Cells(2, "A").Value
       colorList = ws.Cells(2, "B").Value
       
       ' 从第3行开始遍历数据
       For i = 3 To lastRow
           If ws.Cells(i, "A").Value = currentURL Then
               ' URL相同，追加颜色到列表
               colorList = colorList & ", " & ws.Cells(i, "B").Value
               ' 删除重复URL的行
               ws.Cells(i, "A").EntireRow.Delete
               ' 因删除行，循环索引和最后行号回退
               i = i - 1
               lastRow = lastRow - 1
           Else
               ' URL不同，把合并好的颜色写入上一行
               ws.Cells(i - 1, "B").Value = colorList
               ' 更新当前URL和颜色列表
               currentURL = ws.Cells(i, "A").Value
               colorList = ws.Cells(i, "B").Value
           End If
       Next i
       ' 处理最后一行的颜色合并
       ws.Cells(lastRow, "B").Value = colorList
       
       MsgBox "颜色合并完成！"
   End Sub
   

4. 运行代码：按F5或点击运行按钮，代码会直接在原数据上合并颜色，并自动删除重复URL的行。

代码注意事项 #

• 运行前建议先备份数据，避免误操作；
• 代码默认处理Sheet1，可根据实际修改工作表名称。

内容的提问来源于stack exchange，提问作者rec0nstr