如何将工作表中的数据先排序再提取第一行或最后一行数据

亦菩提亦明镜 · 发表于 2013-4-2 18:19

本帖最后由亦菩提亦明镜于 2013-4-2 18:20 编辑

先排序再提取数据.zip (8.99 KB, 下载次数: 10)
如何讲工作表中的数据，先排序，再提取每一个人的第一行数据或最后一行数据，并讲提取的新数据以新的工作表的形式储存
上万条数据
详情见附件
谢谢

该贴已经同步到亦菩提亦明镜的微博

grf1973 · 发表于 2013-4-3 15:48

仅为试验。四个问题实际为两个，只要找到首尾就行了。升序的首即为降序的尾。
Sub tt()
Set d = CreateObject("scripting.dictionary")
For i = 2 To 26
      d(Cells(i, 1).Text) = i
Next
arr = d.keys: brr = d.items
For i = 0 To UBound(arr)
      Cells(i + 15, "G").Resize(1, 4).Value = Cells(brr(i), 1).Resize(1, 4).Value
      num = Application.WorksheetFunction.CountIf([a2:a26], arr(i))
      Cells(i + 15, "K").Resize(1, 4).Value = Cells(brr(i) - num + 1, 1).Resize(1, 4).Value
Next
End Sub

grf1973 · 发表于 2013-4-3 16:20

大小起止什么的自己调调

亦菩提亦明镜 · 发表于 2013-4-3 17:20

grf1973 发表于 2013-4-3 16:20
大小起止什么的自己调调

谢谢，学习了，我先弄弄，有不明白的在提问

		自动登录	找回密码
密码			免费注册

如何将工作表中的数据先排序再提取第一行或最后一行数据

评分