[已解决]能否将二维嵌套数组oRR0直接赋值给表B:J列？

gwfzh · 发表于 2015-3-10 17:37

本帖最后由 gwfzh 于 2015-3-13 15:43 编辑

能否将二维嵌套数组oRR0直接赋值给表B:J列？

各位老师：

Sub dc()程序是将由 "原始表", "原始表hj", "原始表fhj"得到的各种数据即字典值“ dic(k0(I) & br(j0))”赋值给数组orr0(1 To 3)后，再赋值给该表B:J列（即B:D、E:G、H:J三个区域），由于每个条目值有3个元素（brr(I, 2), brr(I, 8), brr(I, 10)），经字典值加载后，数组 orr0(I+ 1, j0 + 1) = dic(k0(I) & br(j0)) 变成了二维嵌套数组，现由于数据量大，程序有310多行语句，运行时较慢，能否将二维嵌套数组oRR0不通过循环直接赋值给该表B:J列（即B:D、E:G、H:J三个区域）？请各位老师帮忙了！谢谢！！！能否将二维嵌套数组oRR0直接赋值给表BJ列？.zip (28.67 KB, 下载次数: 9)

gdpgdp317 · 发表于 2015-3-10 21:13

楼主解说下程序吧，代码看的有点晕，主要一个问题，就是H表的A列是如何来的？

dsmch · 发表于 2015-3-11 09:50

Sub Macro1()
Dim arr, brr, crr, i&, ii&, j%, n&
Set d = CreateObject("scripting.dictionary")
Sheets("H").Activate
arr = Range("a3:a" & Range("a65536").End(xlUp).Row)
For j = 2 To 8 Step 3
brr = Sheets("" & Cells(1, j)).Range("a2").CurrentRegion
For i = 3 To UBound(brr)
d(brr(i, 1)) = i
Next
ReDim crr(1 To UBound(arr), 1 To 3)
For ii = 1 To UBound(arr)
If d.exists(arr(ii, 1)) Then
n = d(arr(ii, 1))
crr(ii, 1) = brr(n, 2)
crr(ii, 2) = brr(n, 8)
crr(ii, 3) = brr(n, 10)
End If
Next
Cells(3, j).Resize(UBound(crr), 3) = crr
d.RemoveAll
Next
End Sub

复制代码

gwfzh · 发表于 2015-3-11 09:53

gdpgdp317 发表于 2015-3-10 21:13
楼主解说下程序吧，代码看的有点晕，主要一个问题，就是H表的A列是如何来的？

程序中用了2次字典：d0(brr(I, 1)) 和dic(brr(I, 1) & sh.Name) ，d0(brr(I, 1)) = ""是将有数据的装入字典d0,用于表格第一列，dic是将 "原始表", "原始表hj", "原始表fhj"三表中的第2、8、10列装入字典，关键是这三列值装入字典后，再orr0(I+ 1, j0 + 1) = dic(k0(I) & br(j0)) 后，二维数组orr0转换成了嵌套数组，这个二维嵌套数组oRR0怎样直接赋值给该表B:J列，请老师帮忙了！谢谢！！！

gwfzh · 发表于 2015-3-11 11:01

本帖最后由 gwfzh 于 2015-3-11 11:29 编辑

dsmch 发表于 2015-3-11 09:50

谢谢“dsmch”老师的帮助！请问，像arr(i,j)(k)这样的数组能否直接向单元格赋值？另代码中“
brr = Sheets("" & Cells(1, j)).Range("a2").CurrentRegion"语句是否取所有各表的值？也包括 "原始表", "原始表hj", "原始表fhj"三表的值？希望老师能继续解惑！！！谢谢了！！！
另：能否将arr(i,j)(k)这样的嵌套数组，用循环将其转换成or0(i, jJ) 一个二维数组，也请老师帮忙了！

gwfzh · 发表于 2015-3-11 12:05

本帖最后由 gwfzh 于 2015-3-11 13:09 编辑

gwfzh 发表于 2015-3-11 11:01
谢谢“dsmch”老师的帮助！请问，像arr(i,j)(k)这样的数组能否直接向单元格赋值？另代码中“
brr = ...

我有81个表，不知 brr = Sheets("" & Cells(1, j)).Range("a2").CurrentRegion是否影响速度？
另：能否将arr(i,j)(k)这样的嵌套数组，用循环将其转换成or0(i, jJ) 一个二维数组，请老师帮忙了！

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

[已解决]能否将二维嵌套数组oRR0直接赋值给表B:J列？

评分

点评

点评