Sub tt()
Dim x%, r%, d%, k%
r = Selection.Row
x = Selection.Rows.Count
d = r + x - 1
k = d
c = Selection.Column
For i = d To r Step -1
If Cells(i, c) = Cells(d, c) Then
Cells(k, c + 1) = Cells(i, c).Offset(-1, 0)
k = k - 1
End If
Next
End Su
下载附件即可。
使用方法：选中一列单元格，然后右键单击右键即可
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024