0

我有一个接受 Excel 单元格的 fromRange 和 ToRange 的函数。基本上我想从范围中逐个单元格地读取值。假设如果我通过 E2 和 E9,我想在循环中读取 Range(E2).value、Range(E3).value 等内容,直到 E9

我怎样才能得到单元格之间的地址。请帮忙

4

1 回答 1

0
Option Explicit

Private Sub calculateRangeOneByOne()
    Dim rangeIterator As Range
    Dim rangeToIterate As Range
    Dim sum As Double


    Set rangeToIterate = Range("A8", "E8")
    sum = 0#
    For Each rangeIterator In rangeToIterate
        sum = sum + rangeIterator
    Next


End Sub

您通常不希望逐个迭代范围。有很多函数可以在范围内工作,所以这个例子绝对是一个糟糕的例子。您最好在这里使用例如 Sum,但只是为了给您一个想法。范围是一个集合,您可以使用 for each 对其进行迭代,也可以将 for 用于索引访问。但这至少少了一点“痛苦”

于 2010-04-14T05:01:11.930 回答