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

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

2、按下快捷键Alt+F11，打开VBA编辑界面，双击左侧数据所在工作表，弹出右侧空白代码区，如下图所示。

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列中。

4、点击代码中的任意位置，然后点击上方的“运行子程序”按钮，如下图所示。

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