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多少,我加你!!!

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com