H5单元格减C4单元格等于AT6单元格

爷们679

补充:H5单元格减C4单元格等于AT6单元格

chart888

见附件
。。

chart888

冒昧的问一句
你问的好像都是些很基础很简单的问题
你是在自己学VBA吗

爷们679

对，新手。看大家设计VBA参考一下。

爷们679

老师，帮我处理一下

爷们679

Sub fff()
'
' fff 宏
'

'
    Dim arr, brr, i&, r%, a%
    arr = Range("c3:i" & Cells(Rows.Count, 3).End(3).Row)
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 2 To UBound(arr) - 1
        brr(i + 1, 1) = arr(i + 1, 6) - arr(i, 1)
    Next
    [at3].Resize(UBound(arr), 1) = brr
End Sub

爷们679

老师，帮我修改一下

chart888

爷们679 发表于 2017-8-18 19:34
Sub fff()
'
' fff 宏

你这个代码没有问题哈
不需要修改了

爷们679

chart888 发表于 2017-8-18 20:03
你这个代码没有问题哈
不需要修改了

计算出结果等于AT5，我不知道要什么设计计算出结果等于AT6。

爷们679

老师，帮我修改一下


计算出结果等于AT5，我不知道要什么设计计算出结果等于AT6。