作者：乔山办公网日期：
返回目录：excel表格制作
Public Sub 顺序知合并内道容相同回单答元()
Dim CXrng As Range, Rng As Range, i As Long
Set Rng = Sheets("sheet2").Range("A1")
For Each CXrng In Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Range("A65536").End(xlUp).Row)
If CXrng.Value <> Rng.Value Then
If i <> 0 Then Rng.Resize(i, 1).Merge
Set Rng = Sheets("sheet2").Range("A" & CXrng.Row)
Rng.Value = CXrng.Value
i = 1
Else
i = i + 1
End If
Next
If i <> 0 Then Rng.Resize(i, 1).Merge
End Sub
供参考：
Sub test()
Range("A1:A100").Replace "(11)", "we"
End Sub
软件版本：Office2007
方法如下：
1.利用VBA实现A列和B列同一行内单元格内容合并：
2.Alt+F11，输入代码如下：
3.F5执行代码并返回Excel，得到结果如下：