VBA多条件查询行号问题

liuxi001

jiangxiaoyun 发表于 2018-8-9 09:06
参考一下

妙，字典我还不能活用

liuxi001

mikezhan 发表于 2018-8-9 09:17
1。把两列数据写入数组。2.  用冒泡法，对日期进行排序。
3. 历遍数组，把B 列 写入字典，键值为 数组的  ...

方法可以，比数组循环麻烦，得到行号更麻烦

yulovey

mikezhan 发表于 2018-8-9 09:17
1。把两列数据写入数组。2.  用冒泡法，对日期进行排序。
3. 历遍数组，把B 列 写入字典，键值为 数组的  ...

我自己设置的VBA 只能找到2,6,13 这三行,但我只想找到这3行中A列中时间最大的那个行号，也就是只返回13， 求大侠帮忙修改一下，多谢！

yulovey

mikezhan 发表于 2018-8-9 19:42
先冒泡排序，然后用字典去重

大哥，对你来说可能简单，对我来说代码写不出来啊！

forverd

添加一个数组，搜索B列的所有值，然后把row.number添加到数组，最后比较大小

forverd

jiangxiaoyun 发表于 2018-8-9 09:06
参考一下

用字典很麻烦，数组就能解决

jiangxiaoyun

forverd 发表于 2018-8-10 11:30
用字典很麻烦，数组就能解决

写个代码，学习学习。

forverd

jiangxiaoyun 发表于 2018-8-10 11:35
写个代码，学习学习。

Sub test()
Dim arr(14) As Integer
i = 2
Do While Cells(0 + i, 2) <> ""
    If Cells(0 + i, 2) = "A" Then
        arr(i) = i
    End If
    i = i + 1
Loop
    For j = 0 To i - 1
        If arr(j) > Max Then
             Max = arr(j)
        End If
    Next
    Debug.Print Max
End Sub