0

私はこれを行うことができます=(For i=1 to 100, print i)

VBAを使用せずにFORステートメントをセル内に配置する方法はありますか?

4

2 に答える 2

1

配列を使用して 1 から 100 までの数値を取得できますが、それらでできることは限られています。たとえば、配列数式で連結することはできません (疑似コードが示唆しています)。ただし、SUM、AVERAGE、またはその他の多くの操作を実行できます。

{=SUM(ROW(1:100))}
{=AVERAGE(ROW(1:100))}
{=MAX(ROW(1:100))}

中括弧は、単に入力するのではなく、control+shift+enter で入力することを意味します。

于 2010-10-06T16:19:03.413 に答える
0

このための VBA はまったく空想的ではありません :-)

Option Explicit

Sub SimpleForLoop()
    Dim i As Integer

    For i = 1 To 100 Step 1
        With ActiveWorkbook.Sheets(1).Cells(1, 1)
            .Value = .Value + i
        End With        
    Next
End Sub

上記の単純なコードは、値 5050 をセル A1 に入れます。

代わりに文字列を連結したい場合は、次のコードを for ループに挿入します。

    With ActiveWorkbook.Sheets(1).Cells(2, 1)
        If .Value = "" Then
            .Value = CStr(i)
        Else
            .Value = .Value & "," & CStr(i)
        End If
    End With

これにより、セル A2 に次のように出力されます。

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25, 26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50, 51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75, 76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100

于 2010-10-06T15:51:02.597 に答える