本帖最后由 网络人 于 2017-6-3 11:24 编辑
这一行单元格的地址是不固定的,随着前面的前面插入的单元个不断在变化,求助在4月期末余数和5月汇总及余数中间将公式改为VBA代码
本帖最后由 chart888 于 2017-6-3 10:51 编辑
- Private Sub CommandButton1_Click()
- With Worksheets("内部")
- r = .Range("A65536").End(xlUp).Row
- .Cells(r, 5) = WorksheetFunction.Sum(.Range(Cells(4, 5).Address, Cells(r - 1, 5).Address))
- .Cells(r, 6) = WorksheetFunction.Sum(.Range(Cells(4, 6).Address, Cells(r - 1, 6).Address))
- For i = 4 To r - 1
- .Cells(i, 7) = .Cells(i - 1, 7) + .Cells(i, 6) - .Cells(i, 5)
- .Cells(r, 7) = .Cells(r - 1, 7)
- Next
- End With
- End Sub
复制代码
|