[已解决]历遍工作表求差的问题

李全有

附件 历遍工作表求差.zip (448.36 KB, 下载次数: 3)

2015-4-7 16:26 上传

点击文件名下载附件
谢谢老师！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-7 16:44

....................

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     For Each sh In Worksheets
   
3.         If sh.Name <> ActiveSheet.Name Then
   
4.             rmax = sh.[c65536].End(3).Row
   
5.             sh.[m1].Resize(rmax).FormulaR1C1 = "=rc3-rc7"
   
6.         End If
   
7.     Next
   
8. End Sub
   

复制代码

grf1973

....................

dsmch

1. Sub Macro1()
   
2. Dim arr, i%, j&
   
3. For i = 2 To Sheets.Count
   
4.     With Sheets(i)
   
5.         arr = .UsedRange
   
6.         For j = 1 To UBound(arr)
   
7.             arr(j, 1) = arr(j, 3) - arr(j, 7)
   
8.         Next
   
9.         .[m1].Resize(UBound(arr)) = Application.Index(arr, 0, 1)
   
10.     End With
    
11. Next
    
12. End Sub

复制代码