如何用vba在excel中将数值相同的两项放在同一行

1、打开Excel数据表，如下图所示，利用VBA编程实现，判断B列中上下两个单元格值是否相同，如果相同，则将它们合并放到C列同一行中。

3、输入代码：Sub 鱼木混猪()For i = 2 To 9If Cell衡痕贤伎s(i, 2) = Cells(i + 1, 2) ThenCe造婷用痃lls(i, 3) = Cells(i, 2) & " " & Cells(i, 2)End IfNext iEnd Sub如下图所示，代码通过循环和条件语句判断上下单元格是否一致，如果一致合并后放到同行第3列中。

5、回到Excel中，可以看到相同单元格的值就被放到了同一行中，如下图所示。