[已解决]VBA按钮两列数字加减

nighthawk

求助......在线等

最佳答案

月排行榜 / 总排行榜

sgxb123431380

2014-3-13 10:44

    arr = Range("A4:D10").Value
    For i = 1 To UBound(arr, 1)
        arr(i, 1) = arr(i, 1) + arr(i, 3) - arr(i, 4)
        arr(i, 3) = ""
        arr(i, 4) = ""
    Next i
    Range("A4:D10").Value = arr

跳转到最佳答案楼层

sgxb123431380

    arr = Range("A4:D10").Value
    For i = 1 To UBound(arr, 1)
        arr(i, 1) = arr(i, 1) + arr(i, 3) - arr(i, 4)
        arr(i, 3) = ""
        arr(i, 4) = ""
    Next i
    Range("A4:D10").Value = arr

nighthawk

sgxb123431380 发表于 2014-3-13 10:44
arr = Range("A4:D10").Value
    For i = 1 To UBound(arr, 1)
        arr(i, 1) = arr(i, 1) + ar ...

直接帮我修改进去吧{:091:}然后发回来我收........N年没接触EXCEL忘记光了

nighthawk

sgxb123431380 发表于 2014-3-13 10:44
arr = Range("A4:D10").Value
    For i = 1 To UBound(arr, 1)
        arr(i, 1) = arr(i, 1) + ar ...

可以了！谢谢！.....{:221:}

sgxb123431380

nighthawk 发表于 2014-3-13 10:45
直接帮我修改进去吧然后发回来我收........N年没接触EXCEL忘记光了

公司电脑不让上传附件，要不你把邮箱地址发一下

nighthawk

sgxb123431380 发表于 2014-3-13 10:51
公司电脑不让上传附件，要不你把邮箱地址发一下

单元格位置变...就乱码了。现在单元格大概对了，行数设置到F200.并顺便保存。再帮帮我好吗？谢谢.....A列的数字不用管，是序列号而已

sgxb123431380

    arr = Range("D4:F200").Value
    For i = 1 To UBound(arr, 1)
        arr(i, 1) = arr(i, 1) + arr(i, 3) - arr(i, 4)
        arr(i, 3) = ""
        arr(i, 4) = ""
    Next i
    Range("D4:F200").Value = arr

nighthawk

sgxb123431380 发表于 2014-3-13 11:36
arr = Range("D4:F200").Value
    For i = 1 To UBound(arr, 1)
        arr(i, 1) = arr(i, 1) + a ...

我已经弄懂了...谢谢！