88万行的数据运算：如何编写代码来代替excel函数的运算，谢谢！

liu-aguang · 发表于 2014-11-24 10:27

分段运算v1.rar (22.88 KB, 下载次数: 7)

ak47ok · 发表于 2014-11-24 22:15

本帖最后由 ak47ok 于 2014-11-24 22:19 编辑

liu-aguang 发表于 2014-11-24 10:27

无奈还是要惊动老师帮助：实际运行时出错还是出错（实际数据884084行）
在 k = IIf(z = 3, m + n, n) 行
不知问题出在何处，我将它变为5次循环还是同样错误

恳请老师指点！大恩大德！

liu-aguang · 发表于 2014-11-24 22:46

ak47ok 发表于 2014-11-24 22:15
无奈还是要惊动老师帮助：实际运行时出错还是出错（实际数据884084行）
在 k = IIf(z = 3, m + n, n) ...

出错时,单击"Debug":
1.是哪一行出错?
2.此时sumR,n,m,z,k,i,j,ubound(arr),ubound(arr,2)的值分别是多少?(鼠标指向该变量,就会看到其值)

ak47ok · 发表于 2014-11-25 20:13

liu-aguang 发表于 2014-11-24 22:46
出错时,单击"Debug":
1.是哪一行出错?
2.此时sumR,n,m,z,k,i,j,ubound(arr),ubound(arr,2)的值分别是多 ...

sumR=884082
,n=221020
,m=2
,z=0
,k行出错

liu-aguang · 发表于 2014-11-25 20:40

ak47ok 发表于 2014-11-25 20:13
sumR=884082
,n=221020
,m=2

修改第二行代码中的: k%改为k&

ak47ok · 发表于 2014-11-26 07:38

liu-aguang 发表于 2014-11-25 20:40
修改第二行代码中的: k%改为k&

谢谢！还是不得要领， k%改为k&后、该能运算，但到下一行代码aar又出错、提示资源不足，我将分段数改为5，
但运行后面的代码仍有通不过，见截图
继续麻烦老师。谢谢！

liu-aguang · 发表于 2014-11-26 08:53

ak47ok 发表于 2014-11-26 07:38
谢谢！还是不得要领， k%改为k&后、该能运算，但到下一行代码aar又出错、提示资源不足，我将分段数改为5， ...

提示的是下标越界错误.看样子是ar1和ar2之一的列标识别错误.把ar1和ar2改为硬编码试试.

ak47ok · 发表于 2014-11-26 20:38

liu-aguang 发表于 2014-11-26 08:53
提示的是下标越界错误.看样子是ar1和ar2之一的列标识别错误.把ar1和ar2改为硬编码试试.

谢谢老师的不厌其烦的帮助。
在老师的启发下我还是只能用呆的方法完成、能分4段运行完毕。
For z = 0 To 3
      If z = 0 Then
      arr = Range("aw3:cj221000")
      Else
      If z = 1 Then
      arr = Range("aw221001:cj442000")
         Else
         If z = 2 Then
      arr = Range("aw442001:cj663000")
         Else
      arr = Range("aw663001:cj884084")
         End If
      End If
      End If
再次感谢liu-aguang 老师！！！

ak47ok · 发表于 2014-11-26 20:39

继续验证下。

ak47ok · 发表于 2014-11-26 21:16

OK，验证正确，电脑又要受苦了。
再次感谢liu-aguang 老师！！！

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

[求助] 88万行的数据运算：如何编写代码来代替excel函数的运算，谢谢！

评分

评分