在EXCEL中如何将同一列中的各个相同的内容进行合并,如:
展开全部
打开EXCEL ALT+F11
调出VBA
插入菜单 插入模块
复制下面的 按F5执行
Sub tt()
Application.DisplayAlerts = False
Dim i, a, b As Integer
b = InputBox("输入要合并的列")
a = 1
For i = 1 To Cells(60000, b).End(xlUp).Row
If Cells(i, b) = Cells(i + 1, b) Then
Else
Range(Cells(a, b), Cells(i, b)).Merge
a = 1 + i
End If
Next i
Application.DisplayAlerts = True
End Sub
调出VBA
插入菜单 插入模块
复制下面的 按F5执行
Sub tt()
Application.DisplayAlerts = False
Dim i, a, b As Integer
b = InputBox("输入要合并的列")
a = 1
For i = 1 To Cells(60000, b).End(xlUp).Row
If Cells(i, b) = Cells(i + 1, b) Then
Else
Range(Cells(a, b), Cells(i, b)).Merge
a = 1 + i
End If
Next i
Application.DisplayAlerts = True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
B1中输入:
=IF(countif(A$1:A1,A1)=1,A1,"")
往下拉就可以了。
=IF(countif(A$1:A1,A1)=1,A1,"")
往下拉就可以了。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
对需要合并的列 先进行排序,然后分类汇总。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先按从小到大的顺序排序撒(数据—排序—升序),在把相同的进行合并撒。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询