物料对应，把表1-表2=表3

15968725770

物料对应，把表1-表2=表3

xzcdcak

#在这里快速回复#Sub 宏1() Dim arr, brr, crr Sheets("表1").Activate endrow1 = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算工作表的最后一个非空行号 arr = Range("AE12:AE" & endrow1) Sheets("表2").Activate endrow2 = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算工作表的最后一个非空行号 brr = Range("AE12:AE" & endrow2) Sheets("表3").Activate endrow3 = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算工作表的最后一个非空行号 crr = Range("AE12:AE" & endrow3) For i = 1 To UBound(arr) crr(i, 1) = arr(i, 1) - brr(i, 1) Next Range("AE12:AE" & endrow3) = crr End Sub

xzcdcak

Sub 宏1()
Dim arr, brr, crr
Sheets("表1").Activate
endrow1 = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算工作表的最后一个非空行号
arr = Range("AE12:AE" & endrow1)
Sheets("表2").Activate
endrow2 = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算工作表的最后一个非空行号
brr = Range("AE12:AE" & endrow2)
Sheets("表3").Activate
endrow3 = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算工作表的最后一个非空行号
crr = Range("AE12:AE" & endrow3)
For i = 1 To UBound(arr)
crr(i, 1) = arr(i, 1) - brr(i, 1)
Next
Range("AE12:AE" & endrow3) = crr
End Sub

杨建营

请楼主参考。

gwjkkkkk

请参考。。。