请教excel中数据关联的宏代码

显示全部楼层 · 2011-4-17 21:50:23

表1 表2 表3 表4 表5一直上下相加减到表20
b8开始
12345

37488表2b9(加为48599 ) (减为84733)
只用上行第一位加减(做两表格) 下行的全部
举个例如表1与表2的关系表1b8+b9=表2的b9

b9+b10=表2的b10

b10+b11=表2的b11

千问 · 2011-4-17 21:50:23

Dim bott, i, j, m, n, b As IntegerDim s1, s2, ss1, ss2, ss As Strings1 = "sheet1"s2 = "sheet2"bott = Sheet1.Range("b65536").End(xlUp).RowIf bott < 28 Then
MsgBox "B列数据不充分"
GoTo ex1End IfFor i = 1 To 19
s1 = "sheet" & i
s2 = "sheet" & (i + 1)
For j = i + 7 To bott - 1
ss = ""

千问 · 2011-4-17 21:50:23

一下，我需要详细了解一下您数据的是什么样的等细节.
回答者：lxlzmh2002 - 魔导师十一级 2009-9-11 21:48===============================================================代码如下:Dim i As LongDim j