[已解决]水平格式转换成竖直格式

SFSH

各位大侠:

我需要将表1 中的数据进行格式转换, 从水平格式转换成竖直格式,并放在表2 中, 我的代码在运行中出错, 请大家帮忙看看纠正错误,谢谢.
请见附件

sheet1: 原数据表
sheet3: 代码及错误处截屏

最佳答案

月排行榜 / 总排行榜

雪舞子

2016-1-15 10:44

错误提示为“运行错误，内存溢出”
可在以下方面找下原因：
1、数据量不大情况下，适量减小动态数组，比如
brr(1 to 10000,1 to c) 或者brr(1 to r,1 to c)
2、如果数据量很大，建议升级excel2007以上版本
3、如果依然报错，查杀病毒
4、问题依旧，可重装office或重装系统
5、如果还是报错，可能是硬件原因，建议换内存试试。

跳转到最佳答案楼层

sry660

我这边运行了下，OK的

SFSH

我以前也能运行,但现在不行,就停留在表三中黄色的那步, 显示"Run-time Error 7: out of memory".

不知道是是什么原因...

雪舞子

错误提示为“运行错误，内存溢出”
可在以下方面找下原因：
1、数据量不大情况下，适量减小动态数组，比如
brr(1 to 10000,1 to c) 或者brr(1 to r,1 to c)
2、如果数据量很大，建议升级excel2007以上版本
3、如果依然报错，查杀病毒
4、问题依旧，可重装office或重装系统
5、如果还是报错，可能是硬件原因，建议换内存试试。