Excel排序。

发布网友 发布时间：2022-02-22 03:54

我来回答

共5个回答

热心网友 时间：2022-02-22 05:23

Sub test3()
Dim i As Integer, j As Integer
i = 1
j = 1
Columns(1).Clear
For i = 1 To [b100].End(xlUp).Row
If Cells(i, 2) <> Cells(i + 1, 2) Then
Cells(i, 1) = j
j = j + 1
Else
Cells(i, 1) = j
If Cells(i, 2) = Cells(i + 1, 2) Then Range(Cells(i, 1), Cells(i + 1, 1)).Merge
End If
Next i
End Sub
第二列名字 第一列排序加合并
有问题可以再问我

热心网友 时间：2022-02-22 06:41

Sub hebin()
Dim i As Integer, j As Integer
i = 1
j = 1
Range("b1:b500").Sort Key1:=Range("b1")
Columns(1).Clear
For i = 1 To [b500].End(xlUp).Row
If Cells(i, 2) <> Cells(i + 1, 2) Then
Cells(i, 1) = j
j = j + 1
Else
Cells(i, 1) = j
If Cells(i, 2) = Cells(i + 1, 2) Then Range(Cells(i, 1), Cells(i + 1, 1)).Merge
End If
Next i
End Sub

先排序，后合并

热心网友 时间：2022-02-22 08:16

只选定名字列，进行高级筛选，不选择重复项，这样就可以找到不重复名字，复制到其他地方，再排序即可。

热心网友 时间：2022-02-22 10:07

第二列现有的顺序保持现状的情况下合并还是重新排序之后再合并？请说清楚，我可以用excel vba帮你完成追问把一样的数据合并。然后排序。

热心网友 时间：2022-02-22 12:15

这个很简单，，Q多少，我加你！！！