Question

我正在处理一个非常大的数据堆栈（接近1000行）。我想为列中的所有单元格编写一个函数，该函数从每行中的一个单元格获取值，将其除以同一行中另一个单元格的值，并将结果写入同一行中的第三个单元格。换句话说，对于行X，它需要AX，将其除以BX，并将其写入CX;对于行Y，它取AY中的值，将其除以BY，并写入CY。

正如我所说，我正在处理大量数据，我真的希望能够为整个列编写一个函数，而不必为列中的每个单元格编写一个函数。从概念上讲，我很清楚我需要一些方法来使用行号作为变量来定义函数并将其应用于整个列。我不知道怎么把它带到应用程序中。

Answer 1

@pnuts是绝对正确的，但是，如果你真的想用VBA这样做，试试这个：

Sub LoopRange()
  Dim rCell As Range
  Dim rRng As Range
  Set rRng = Sheet1.Range("A1:A1000")

  For Each rCell In rRng.Cells
    Range("C" & rCell.Row).Formula = "=A" & rCell.Row & "/B" & rCell.Row
  Next rCell
End Sub

确保您的范围正确，否则您将得到除以零错误。

是否有表示行或列值的符号，可用于定义函数？

1 个答案: