作业帮 > 综合 > 作业

EXCEL中,求教同列同内容合并!

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 13:05:31
EXCEL中,求教同列同内容合并!
EXCEL中,如何对同列同内容进行自动合并!或者对同行同内容进行自动合并!系统无此功能,用VBA代码也行!
可直接写一段VBA代码给我也行啊,谢谢!
是单元格合并么?
前几天写了个你参考下
Sub tt()
Application.DisplayAlerts = False
Dim i,j,a,l1,l2 As Integer
l1 = InputBox("输入要合并的起始列")
l2 = InputBox("输入要合并的终止列")
If l1 > l2 Then
MsgBox ("起始列不能大于终止列")
Exit Sub
End If
For j = l1 To l2
a = 1
For i = 1 To Cells(1,j).End(xlDown).Row
If Cells(i,j) = Cells(i + 1,j) Then
Else
Range(Cells(a,j),Cells(i,j)).Merge
a = 1 + i
End If
Next i
Next j
Application.DisplayAlerts = True
End Sub
我这个是合并单元格用的
还有根据单元格合并内容的自定义函数的你有需要可以联系
上面代码也可以改成在行内合并!