我可以这样做吗=(For i=1 to 100, print i)
有没有办法在不使用 VBA 的情况下将 FOR 语句放入单元格中?
您可以使用数组来获取从 1 到 100 的数字,但是您可以使用它们做些什么。例如,您不能在数组公式中连接(您的伪代码建议)。但你可以求和、平均或许多其他操作。
{=SUM(ROW(1:100))}
{=AVERAGE(ROW(1:100))}
{=MAX(ROW(1:100))}
大括号表示使用 control+shift+enter 输入,而不仅仅是输入。
用于此的 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