Question

VB高手过来帮下忙在线等

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
大致意思就是这样的。我一直在线等，不明白的跟下贴。谢谢 了
见本贴http://club.excelhome.net/thread-648802-1-1.html

Answer 1

Sheet1.Range("a65536").End(xlUp).Row
就是从工作表1的最后一行开始向上找到有数据的一行为止。
sheet1,sheet3,sheet4所做的工作都是类似的。