[已解决]跨文件对应日期批量取数

zijihejiu · 发表于 2014-11-24 16:49

1、有两个文件，我想在“销售表.xlsx”文件中，取到“源文件.xlsx”文件对应的数据。除了要判断“销售金额”这一项，还需要判断日期的对应关系。因为实际数据不止一个月。。
2、源文件的数据中：销售金额、购买人数、客流人数，它们的所在列数并不固定，因此列间经常会插入其他数据。因此，需要通过名称来定位相应的数据。
3、“销售表.xlsx”文件中的3项指标，与“源文件.xlsx”的3项是一一对应的，如上图，只是叫法名称不一样。

请高手们指点一二，谢谢了。
2个文件在附件中：

桌面.rar (26.45 KB, 下载次数: 5)

zijihejiu · 发表于 2014-11-24 21:45

谁能帮帮我啊

dsmch · 发表于 2014-11-25 05:56

Sub Macro1()
On Error Resume Next
Dim arr, brr, crr, d, wb As Workbook, i&, j&, zf$$
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
arr = Range("a2").CurrentRegion
ReDim brr(1 To UBound(arr) - 1, 1 To UBound(arr, 2) - 1)
Set wb = GetObject(ThisWorkbook.Path & "\源文件.xls")
crr = wb.Sheets(3).Range("a1").CurrentRegion
wb.Close 0
For i = 2 To UBound(crr)
For j = 2 To UBound(crr, 2)
zf = crr(i, 1) & "," & crr(1, j)
d(zf) = crr(i, j)
Next
Next
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
zf = arr(1, j) & "," & arr(i, 1)
brr(i - 1, j - 1) = d(zf)
Next
Next
Range("b3").Resize(UBound(brr), UBound(brr, 2)) = brr
Application.ScreenUpdating = True
End Sub

复制代码

dsmch · 发表于 2014-11-25 05:58

两表标题应该一致，做了一些改动

zijihejiu · 发表于 2014-11-25 12:07

dsmch 发表于 2014-11-25 05:58
两表标题应该一致，做了一些改动

第一个：

第二个：

真是非常感谢，现在主要问题是源文件是从其他软件生成的。里面项目所在的列数会可能会发生变化，只有项目名称是不变的。如上面截图所示，能否通过项目的名称进行判断呢？

Downloads-2.rar (23.74 KB, 下载次数: 2)

zijihejiu · 发表于 2014-11-25 13:16

zijihejiu 发表于 2014-11-25 12:07
第一个：

第二个：

那为什么插入空列之后，会获取不到源文件的数据呢

dsmch · 发表于 2014-11-25 16:19

Sub Macro1()
On Error Resume Next
Dim arr, brr, crr, d, wb As Workbook, i&, j&, zf$$
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
arr = Range("a2").CurrentRegion
ReDim brr(1 To UBound(arr) - 1, 1 To UBound(arr, 2) - 1)
Set wb = GetObject(ThisWorkbook.Path & "\源文件.xls")
crr = wb.Sheets(3).usedrange
wb.Close 0
For i = 2 To UBound(crr)
For j = 2 To UBound(crr, 2)
      zf = crr(i, 1) & "," & crr(1, j)
      d(zf) = crr(i, j)
Next
Next
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
      zf = arr(1, j) & "," & arr(i, 1)
      brr(i - 1, j - 1) = d(zf)
Next
Next
Range("b3").Resize(UBound(brr), UBound(brr, 2)) = brr
Application.ScreenUpdating = True
End Sub

zijihejiu · 发表于 2014-11-28 14:00

本帖最后由 zijihejiu 于 2014-11-28 16:52 编辑

dsmch 发表于 2014-11-25 16:19
Sub Macro1()
On Error Resume Next
Dim arr, brr, crr, d, wb As Workbook, i&, j&, zf$$

研究了半天，还是有点没有搞明白的地方，希望能得到指点。
当我移动了原数据和销售表在表格中的位置，代码里应该怎么去调整呢？
自己尝试了几次，都有问题，我打包了文件，麻烦你帮我再看看，万分感谢！

Downloads-11.28.rar (25.78 KB, 下载次数: 2)

		自动登录	找回密码
密码			注册

[已解决]跨文件对应日期批量取数

相关帖子

点评