根据名称排列顺序求助

新手路上 · 发表于 2019-1-17 22:23

新手路上发表于 2019-1-17 22:21
假设你的数据有8000行+，我可以给你【完美~~~~完美】的效果。
首先，在M2单元格输入以下公式，三键下拉。 ...

我这个方法虽然土，但是我能够屏蔽掉所有不应该出现的值，数字，0等。

新手路上 · 发表于 2019-1-17 22:28

yksoft 发表于 2019-1-17 21:16
谢谢大神没错好长牛

这个公式，你往下拉，看看是不是出现很多不应该出现的值。O(∩_∩)O哈哈~

飞天篮球猪 · 发表于 2019-1-17 22:29

Power Query窗口可视化操作就可以了
逆透视-透视-排序
高效不烧脑...lol...

新手路上 · 发表于 2019-1-17 22:32

满坛皆为吾师发表于 2019-1-17 21:29
我传一个吧，真心不推荐公式

自始至终都感觉自己一点进步都没有，我太惭愧了，我的方法太窝囊了，ε=(′ο｀*)))唉，太伤心了。┭┮﹏┭┮

江苏永能朱兴华 · 发表于 2019-1-18 09:03

我走我流发表于 2019-1-17 21:02
=CHOOSE(COLUMN(A1),INDEX($D:$D,MOD(LARGE(IFERROR(MMULT(COUNTIFS($D$3:$D$30,$D$3:$D$30,OFFSET($E$3:$E ...

MMULT(COUNTIFS(D$2:D$99,D$2:D$99,OFFSET(E$2:E$99,,{0,1}),"迟到"),{1;1})这部分非常漂亮！

借老师公式写下：

=INDEX(D:D,MOD(MAX(MMULT(COUNTIFS(D$2:D$99,D$2:D$99,OFFSET(E$2:E$99,,{0,1}),"迟到"),{1;1})*(COUNTIF(J$1:J1,D$2:D$99)=0)/1%+ROW($2:$99)),100))&""

yksoft · 发表于 2019-1-18 09:33

新手路上发表于 2019-1-17 22:32
自始至终都感觉自己一点进步都没有，我太惭愧了，我的方法太窝囊了，ε=(′ο｀*)))唉，太伤心了。┭┮﹏ ...

我也是学习但有时候真的是能力问题不是说不想学就是只要有难度就想不出来进步还是有的至少说是能看懂然后可以照着改还有这个得没事就弄只要停顿然后之前学的能忘掉

ykqrs · 发表于 2019-1-19 11:24

Sub qq()
Dim d, arr, r&, i&, j%, aa
Set d = CreateObject("Scripting.Dictionary")
r = Cells(Rows.Count, 4).End(xlUp).Row
arr = Range("d3:f" & r)
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
If Len(arr(i, 2)) Then
If Len(arr(i, 1)) Then
For j = 2 To 3
d(arr(i, 1)) = d(arr(i, 1)) + IIf(arr(i, j) = "迟到", 1, 0)
Next
End If
End If
Next
For Each aa In d.keys
If d(aa) = 0 Then d.Remove aa
Next
Columns("j:k").Clear
[j1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
[j1:k1].Resize(d.Count).Sort key1:=[k1], Order1:=2, Header:=2
End Sub

复制代码

ykqrs · 发表于 2019-1-19 11:26

点击按钮

排列顺序.rar (17.72 KB, 下载次数: 1)

yksoft · 发表于 2019-1-21 17:09

ykqrs 发表于 2019-1-19 11:26
点击按钮

谢谢 VB做起来就是不一样的东西了

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

[求助] 根据名称排列顺序 求助

[求助] 根据名称排列顺序求助