第1个回答 2011-07-14
打开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
第2个回答 推荐于2018-03-19
B1中输入:
=IF(countif(A$1:A1,A1)=1,A1,"")
往下拉就可以了。本回答被提问者和网友采纳