急！！！如何优化这个宏命令。（表变量问题）

hnnylsw

如果能把代码独立出来，更好。因为我的数据太多了，发现代码占用字节也很多，我也想弄个小程序但能力有限，发个小图看下吧 sy01.rar (115.89 KB, 下载次数: 5)

2010-11-14 02:36 上传

点击文件名下载附件

[ 本帖最后由 hnnylsw 于 2010-11-14 20:16 编辑 ]

hnnylsw

Dim i1%, i3%, i4%, ii%, xxx1%, xxx3%, xxx4%, x1%, x3%, x4%
ii = Sheet1.Range("a65536").End(xlUp).Row

xxx1 = Sheet2.Range("a65536").End(xlUp).Row
i1 = Application.WorksheetFunction.Match(Sheet2.Range("a65536").End(xlUp).Value, Sheet1.Range("a1:a100"), 0)
x1 = xxx1 + ii - i1
Sheet2.Range("a" & xxx1 & ":i" & x1).Value = Sheet1.Range("a" & i1 & ":i" & ii).Value


xxx3 = Sheet3.Range("a65536").End(xlUp).Row
i3 = Application.WorksheetFunction.Match(Sheet3.Range("a65536").End(xlUp).Value, Sheet1.Range("a1:a100"), 0)
x3 = xxx3 + ii - i3
Sheet3.Range("a" & xxx3 & ":q" & x3).Value = Sheet1.Range("j" & i3 & ":z" & ii).Value

xxx4 = Sheet4.Range("a65536").End(xlUp).Row
i4 = Application.WorksheetFunction.Match(Sheet4.Range("a65536").End(xlUp).Value, Sheet1.Range("a1:a100"), 0)
x4 = xxx4 + ii - i4
Sheet4.Range("a" & xxx4 & ":k" & x4).Value = Sheet1.Range("aa" & i4 & ":ak" & ii).Value

EXCEL    表1
A：I列为表2要整理的数据，J：Z为表3要整理的数据，AA：AK列为表4要整理的数据。
表1每天都会有更新。举个简单的例子吧：
表1昨天天数据为：
A      B      C     D   
1      5     1      6
2      3     2      3
3      7     3      5
4      6     4      8
5      4     5      2
表2要整理A：B列
得到：A：B列1-5行数据
表2要整理CD列1-5行每张要整理的表头一列都是连续规律的数据

到今天数据我从设备软件里导出今天试验的数据（也可以导出以往的数据，但为了速度快一般导进的数据越少越好。）
今天的数据：
A    B     C    D
4     6    4     8
5   4     5     2
6    1     6     8
7    3     7     2
8    6     8     8
那么就把今天的数据整理出来吧：昨天已经整理到5 4 5 2这行数据了。只要在后面依次加上后面的数据就OK了
得到的表A数据就为：
A    B
1    5
2     3
3     7
4    6
5    4
6    1
7   3
8   6
大致意思就是这样的。我一直在线等，不明白的跟下贴。谢谢 了

hnnylsw

本人试图用循环语句都是不知道表表间怎么用变量，还请指点下。