excel: возможно ли поместить оператор FOR как формулу в ячейку? - PullRequest
0 голосов
/ 06 октября 2010

Могу ли я сделать это =(For i=1 to 100, print i)

есть ли способ поместить оператор FOR в ячейку БЕЗ ИСПОЛЬЗОВАНИЯ VBA?

Ответы [ 2 ]

1 голос
/ 06 октября 2010

Вы можете использовать массив для получения чисел от 1 до 100, но вы ограничены в том, что вы можете с ними делать.Вы не можете, например, объединить в формуле массива (что предлагает ваш псевдокод).Но вы можете SUM, AVERAGE или многие другие операции.

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

Скобки означают ввод с помощью control + shift + enter, а не просто ввод.

0 голосов
/ 06 октября 2010

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

...