各位大侠帮帮忙，帮我处理一下随着数据改变而数据列自动排序调整！！！

教父01

wj2368 发表于 2017-11-1 12:46
调整前是连续的次数不分人的
调整后是按人的

我一直在用原来那版，好像分人啊！！！

wj2368

教父01 发表于 2017-11-1 14:00
我一直在用原来那版，好像分人啊！！！

如果一个人内连续个数都是最高的有二次，就会显示同一人的

教父01

wj2368 发表于 2017-11-1 14:04
如果一个人内连续个数都是最高的有二次，就会显示同一人的

哦，知道了！非常感谢！！！~

教父01

wj2368 发表于 2017-11-1 14:04
如果一个人内连续个数都是最高的有二次，就会显示同一人的

我刚才测试了一下，好像不太对！

教父01

wj2368 发表于 2017-11-1 14:04
如果一个人内连续个数都是最高的有二次，就会显示同一人的

请问老师，能否如何把没有数据的行自动隐藏，添加数据后，该行自动显示？

wj2368

教父01 发表于 2017-11-6 14:02
请问老师，能否如何把没有数据的行自动隐藏，添加数据后，该行自动显示？

隐藏了你怎么输入？？？？

教父01

wj2368 发表于 2017-11-7 11:00
隐藏了你怎么输入？？？？

呵呵，就是想输入前选择取消隐藏，每行输入后自动隐藏！！！或者点击按钮？？？

wj2368

教父01 发表于 2017-11-8 14:35
呵呵，就是想输入前选择取消隐藏，每行输入后自动隐藏！！！或者点击按钮？？？

呵呵，你傍边还有要看的

教父01

wj2368 发表于 2017-11-8 14:59
呵呵，你傍边还有要看的

实际上不增加这个功能也行，就是想知道能不能实现！！！

wj2368

教父01 发表于 2017-11-8 15:33
实际上不增加这个功能也行，就是想知道能不能实现！！！

可以啊。。。。。。。。
Sub 自动隐藏() '自动隐藏
    Dim arr, rng As Range, i&
    arr = Range("F1:F" & [a1].CurrentRegion.Rows.Count)
    For i = 4 To UBound(arr)
        If arr(i, 1) = 0 Then
            If rng Is Nothing Then Set rng = Cells(i, 1).Resize(2) Else Set rng = Union(rng, Cells(i, 1).Resize(2))
        End If
    Next
    [a1].CurrentRegion.EntireRow.Hidden = False
    If Not rng Is Nothing Then rng.EntireRow.Hidden = True
End Sub

Sub 取消隐藏() '取消隐藏
    [a1].CurrentRegion.EntireRow.Hidden = False
End Sub