|
最近刚接触VBA,尝试用代码计算日常工作中所使用的表格。附件是一份宿舍用电明细表,是用公式计算用电的。现想通过代码实现,求指教,求答案。。。
- Sub Macro1()
- Dim arr, i&, j%
- arr = Range("a1").CurrentRegion
- For i = 4 To UBound(arr) Step 2
- For j = 3 To UBound(arr, 2) - 2
- arr(i, j) = arr(i - 1, j + 1) - arr(i - 1, j)
- Next
- Next
- Range("a1").CurrentRegion = arr
- End Sub
复制代码
|
|