怎样同一工作薄里跨表取数

yzxfelix

看到一个图片，是跨工作薄取数的，怎样同一个工作簿跨表取数。

精英土豪

复制？

yzxfelix

想用vba代码写一段，求大神支持。

无聊的疯子

其实很简单,

比如我们要取A1单元格的数据,直接 myStr=range("A1").value
这个Range前面省略了很多东西(父对象),那这些省略的代码会受你代码写的位置影响

为了不受影响,你加上父对象就好了,比如要取 汇总表A1单元格的数据,那就是
mystr=worksheets("汇总").range("A1").value

如果你打开了N多个工作薄,比如名称有 1月.xlsx,2月.xlsx ,汇总.xlsx,

这时候我们要把文件 1月,2月 里第一张工作表的A1单元格中的值取出来怎么写呢?

mystr1=workbooks("1月.xlsx").worksheets(1).range("A1").value
mystr2=workbooks("2月.xlsx").worksheets(1).range("A1").value

前题是这两个文件你都打开了,所以只需要在 Range 前面添加上父路径就好了!!

简单的比喻,kfc 在同一个城市可能有很多家店,你家附近就有一个,
那你会这样告诉你朋友,在我家这里的kfc里等你,这样他才知道你的具体位置一个道理

yzxfelix

疯哥，学习了，如果有几万条以上的数据，怎样代码提速呢，

无聊的疯子

yzxfelix 发表于 2017-2-2 18:20
疯哥，学习了，如果有几万条以上的数据，怎样代码提速呢，

具体情况具体分析,数组套字典比较通用

yzxfelix

好的，先补充些数组和字典的知识。谢谢疯哥。

yzxfelix

疯哥，看到你以前帖子了，真实感动啊，原来疯哥，早已沧海难为水了。膜拜。
Sub 汇总()
    Dim Arr, MyRow%, k%
    Dim dic As New Dictionary
    Arr = Range("A1").CurrentRegion.Value
    ReDim brr(1 To UBound(Arr), 1 To 2)
    For MyRow = 2 To UBound(Arr)
        If Not dic.Exists(Arr(MyRow, 1)) Then
            k = k + 1
            dic.Add Arr(MyRow, 1), k
            brr(k, 1) = Arr(MyRow, 1)
            brr(dic(Arr(MyRow, 1)), 2) = brr(dic(Arr(MyRow, 1)), 2) + Arr(MyRow, 2)
        Else
            brr(dic(Arr(MyRow, 1)), 2) = brr(dic(Arr(MyRow, 1)), 2) + Arr(MyRow, 2)
        End If
    Next MyRow
    Range("D2").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

yzxfelix

这个对话在一个博客上，小妮子的

yzxfelix

疯哥： 这句具体什么意思啊
result(s, j - 2) = result(s, j - 2) + arr(i, j)