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

通常、範囲を 1 つずつ反復処理することは望ましくありません。範囲で機能する関数はたくさんあるため、この例は明らかに貧弱です。ここでは例として Sum を使用することをお勧めしますが、アイデアを提供するだけです。範囲はコレクションであり、for each で反復できます。また、インデックス アクセスで for を使用することもできます。しかし、これは少なくとも「痛み」が少し少ないです

于 2010-04-14T05:01:11.930 に答える