[已解决]求2动态单元格中数字相减？

xxjjdd0000

1. Sub 相减()
   
2. Dim x%
   
3. Dim row1%, row2%
   
4. With Sheet2
   
5. For x = 1 To 200
   
6. If .Range("a" & x) = "总库存表" Then
   
7. row2 = .Range("a" & x).Offset(-1, 9).Value
   
8. End If
   
9. If .Range("a" & x) = "出库(超期费)审核表" Then
   
10. row1 = .Range("a" & x).Offset(-2, 10).Value
    
11. End If
    
12. 
    
13. Next x
    
14. .Range("a" & .Range("a65536").End(xlUp).Row + 1) = row1 - row2
    
15. End With
    
16. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

L50814026

2013-8-24 22:11

试试这个，也就是在你的代码上改了一下

跳转到最佳答案楼层

L50814026

试试这个，也就是在你的代码上改了一下

我心飞翔410

可以用函数啊  干嘛用v b列一个有数据 一个没有
就可以根据这个求结果啊

xxjjdd0000

谢谢，这张表示各个表中复制到汇总表的，所以加以运算就直接发邮件了，用函数要多的程序。