求助一个数据引用的VBA代码

wqvbzyq

本人只有简单的C语言基础，对于VBA不是很会，但现在急需一个小的代码，求大神指教！


大概需求是：表格分别内存了个 绝对路径、子表名称、单元格位置。 现需要引用前面三个单元格所对应的文件内的数值。
感觉应该比较简单，就是自己怎么写也不对，求大神指点！

爱疯

Sub test()
    Dim A, i, j, k, wk
    Sheets(1).Select
    i = Range("a65536").End(xlUp).Row
    Range("c6:h" & i) = ""
    A = Range("A1").CurrentRegion

    For i = 6 To UBound(A)
        If A(i, 1) <> "" Then
            '1）路径
            Set wk = Workbooks.Open(A(i, 1))
            '2）选择
            For k = 1 To 4
                If A(i, 2) = A(k, 1) Then Exit For
            Next k
            '3）取值
            For j = 3 To UBound(A, 2)
                If A(k, j) <> "" Or A(k + 1, j) <> "" Then
                    'A(i, j) = 工作簿.工作表.单元格
                    A(i, j) = wk.Sheets(A(k, j)).Range(A(k + 1, j))
                End If
            Next j
            wk.Close 0
        End If
    Next i
    Range("A1").Resize(UBound(A), UBound(A, 2)) = A
End Sub

2.rar (73.03 KB, 下载次数: 6)

2019-4-4 11:51 上传

点击文件名下载附件

wqvbzyq

提前感谢了大家了，想必这个代码对大神们应该不在话下吧

爱疯

没看懂需求
如果只2个文件（实际不止），能模拟一个结果么？

wqvbzyq

爱疯 发表于 2019-4-4 08:51
没看懂需求
如果只2个文件（实际不止），能模拟一个结果么？

计划是从几个个文件中提取数据，每个文件提取的数据约三十个左右，但数据所在的位置并不一样。数据源有几种表格模板

wqvbzyq

爱疯 发表于 2019-4-4 08:51
没看懂需求
如果只2个文件（实际不止），能模拟一个结果么？

比如在C6单元格，我希望得到的是 来自这个位置的数据（='F:\各格式表格模板\数据源1.xls]汇总表'!A4）,也就是A6+C1+C2；
C7,是另一种模板，希望得到的数据位置是：A7+C3+C4

爱疯

wqvbzyq 发表于 2019-4-4 09:15
比如在C6单元格，我希望得到的是 来自这个位置的数据（='F:\各格式表格模板\数据源1.xls]汇总表'!A4）,也 ...

我是想先看看两端，即（先只放2个）源文件和结果
我觉得看了后，才好理解你提到的处理方式

wqvbzyq

爱疯 发表于 2019-4-4 09:46
我是想先看看两端，即（先只放2个）源文件和结果
我觉得看了后，才好理解你提到的处理方式

已重新上传附件，数据实现可能有几千行，想实现的结果如表格里面的第6、7行数据一样。

爱疯

c6
=$A6&INDEX(C:C,MATCH($B6,$A:$A,))&INDEX(C:C,MATCH($B6,$A:$A,)+1)




相当于把三部分连在一起，再下拉右拉，是吗

eastigersd

真得跟高手好好学习一下