时间戳

首页 > 解决方案 > 通过列添加数字

vba - 通过列添加数字

问题描述

我想编写将在列中添加 2 个单独行的数字的代码。在第 4 行和第 6 行上，我存储了一个输入数字数组，我想分别在第 7 行将它们之间的总和结果返回到 B 列到 F 列。我在指定输入的行的内容时遇到了问题添加，因此，我得到一个错误。我正在考虑首先为行（只有一行）进行人工循环，然后遍历列。在为输入数字定义行时出现错误，即第 4 行和第 6 行的值。

Sub SumCol()
Dim StartRow As Integer, EndRow As Integer, answer As Integer, FirstInput As Integer, FirstInputRow As Integer, SecondInput As Integer, SecondInputRow As Integer

Dim ColumnNo As Integer, TargetRow As Integer
Const COLUMNSTART As Integer = 2
Const COLUMNEND As Integer = 6

TargetRow = 7
EndRow = 7
FirstInputRow = 3
SecondInputRow = 6
FirstInput = Cells(FirstInputRow, ColumnNo)
SecondInput = Cells(SecondInputRow, ColumnNo)

For StartRow = TargetRow To EndRow
    For ColumnNo = COLUMNSTART To COLUMNEND
    answer = FirstInput + SecondInput
    Cells(TargetRow, ColumnNo).Value = answer
    Next ColumnNo

    TargetRow = TargetRow + 1
Next StartRow

End Sub

有人可以帮忙吗？

标签： vbaexcel

解决方案

像这样简单的东西

Sub SumCol()
    For x = 2 To 6
        Cells(7, x).FormulaR1C1 = Cells(4, x).Value + Cells(6, x).Value
    Next x
End Sub

不会解决你的问题？够简单！！或者也许我没有完全理解你的目标......

推荐阅读