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

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

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

3、输入代码：

Sub 鱼木混猪()

For i = 2 To 9
If Cells(i, 2) = Cells(i + 1, 2) Then
Cells(i, 3) = Cells(i, 2) & " " & Cells(i, 2)
End If
Next i
End Sub
如下图所示，代码通过循环和条件语句判断上下单元格是否一致，如果一致合并后放到同行第3列中。

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

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

1、1.打开Excel数据表；

2.按下Alt+F11，双击数据工作表；

3.输入代码，核心代码：

For i = 2 To 9
If Cells(i, 2) = Cells(i + 1, 2) Then
Cells(i, 3) = Cells(i, 2) & " " & Cells(i, 2)

4.点击“运行子程序”；

5.返回Excel相同值的就被放到了同一行中。