0

我可以这样做吗=(For i=1 to 100, print i)

有没有办法在不使用 VBA 的情况下将 FOR 语句放入单元格中?

4

2 回答 2

1

您可以使用数组来获取从 1 到 100 的数字,但是您可以使用它们做些什么。例如,您不能在数组公式中连接(您的伪代码建议)。但你可以求和、平均或许多其他操作。

{=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 回答