連続した整数で配列を塗りつぶす

Question

ExcelとVBAを使って小計関数に渡す連続した整数で配列を塗り潰そうとしています。私は連続したintの動的にサイズの配列が必要です。 fnctionはArray（1,2,3,4,5）を使用すると動作しますが、動的サイズの配列を使用しようとすると動作しません。

私はこれについていくつかの記事を読んだことがありますが、実際にはうまくいきませんでした。他の誰かがこれを試しましたか？

Answer 1

私はあなたが小計法を意味すると思います。これは私のために働く、あなたはあなたがやっていることとそれを比較する必要があります。

Sub Macro1() 

    Dim aConsec() As Long 
    Dim i As Long 

    ReDim aConsec(1 To 2) 

    For i = 1 To 2 
     aConsec(i) = i 
    Next i 

    Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=aConsec, _ 
     Replace:=True, PageBreaks:=False, SummaryBelowData:=True 

End Sub

Answer 2

はいけない、それが右からサイズ、あなたが必要とどのように多くのemelemts知っている場合は、フルは非常に高価な操作

ある場合は、それらのサイズを変更すること

のようにArrayListのか何かを使用してみてください...動的配列を使用します始まり。

また、連続した数字を合計すると、すべてのアレイを使用することなく可能である...

Answer 3

あなたがNからMまでの範囲の合計をしたい場合は、この式を使用します。

（M *を（（M + 1）/ 2）） - （（N-1）*（N/2））