请教各位大神，在我编写的自动数据汇总表的基础上进行改写，抓取各分表对应数据

ljx5270835

求助在我编写的自动数据汇总表的基础上进行改写，在X、Y、Z、AA列抓取各分表的相关数据。

具体如下：

1. 首先X列是V-car，要抓取如1-1-1中：当W列最小值时，所对应的N列所在行数之前的最大值，如4.25，然后输入到汇总表中的X列。

2. Y列是V-car与冲突的的距离，即上述求出来的4.25所在行数的W列那个值，即4.11，然后输入到汇总表Y列。

3. 同理，Z列是V-bike，当Z列最小值时，所对应的S列所在行数之前的最大值，如0.97，然后输入到汇总表中的Z列。

4. AA列是V-bike与冲突的的距离，即上述求出来的0.97所在行数的Z列那个值，即2.11，然后输入到汇总表AA列。

3190496160

Sub 取数()
Application.ScreenUpdating = False
Dim ar As Variant
Set sh = ThisWorkbook.Worksheets("汇总表")
f = Dir(ThisWorkbook.Path & "\分表\*.xls*")
n = 3
Do While f <> ""
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\分表\" & f, 0)
    n = n + 1
    With wb.Worksheets(1)
        r = .Cells(Rows.Count, 23).End(xlUp).Row
        ar = .Range("w3:w" & r)
        zd = Application.Min(ar)
        For i = 1 To UBound(ar)
            If ar(i, 1) = zd Then
                xh = i
                Exit For
            End If
        Next i
        sh.Cells(n, 1) = n - 3
        sh.Cells(n, 2) = "'" & Split(wb.Name, ".")(0)
        sh.Cells(n, 3) = .Range("b1") & "," & .Range("g1")
        zd_1 = Application.Max(.Range("n3:n" & xh - 1))
        sh.Cells(n, 24) = zd_1
        For i = 3 To xh - 1
            If .Cells(i, 14) = zd_1 Then
                sh.Cells(n, 25) = .Cells(i, "w")
                Exit For
            End If
        Next i
        '''以下省略
        '''
    End With
    wb.Close False
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

代码没有写完整，仅仅提供一个思路
抓取数据.rar (120.5 KB, 下载次数: 5)

2023-4-16 10:44 上传

点击文件名下载附件

ljx5270835

3190496160 发表于 2023-4-16 10:44
代码没有写完整，仅仅提供一个思路

你好，刚测试了一下，原题所需的前2个值倒是可以汇总了，但是我原先的AB、AD、AE列的自动数据汇总运行不出来了？

3190496160

ljx5270835 发表于 2023-4-16 11:13
你好，刚测试了一下，原题所需的前2个值倒是可以汇总了，但是我原先的AB、AD、AE列的自动数据汇总运行不 ...

呵呵，已经跟你说了，代码只是给你提供一个解决问题的思路而已

ljx5270835

3190496160 发表于 2023-4-16 12:14
呵呵，已经跟你说了，代码只是给你提供一个解决问题的思路而已

噢噢 好的，谢谢大哥。我再研究研究，感谢