<em>excel</em>如何用宏代码向数组输入符合条件的数据-excel 宏数组,excel

最大堆是 一个完全二叉树 且 每个父节点都大于子节点 这个 我们写的 和答案不一样...所以很奇怪

试试copy：zd

 Sub aa()
  Dim i As Long
  Dim n As Long
  Dim arr() As String
  For Each sht In Sheets
      For i = 1 To 100
          If sht.Cells(i, 1).Value = "a" Then
             n = n + 1
             ReDim Preserve arr(n)
             arr(n) = sht.Cells(i, 1).Value
          End If
      Next i
  Next
End Sub

----57132899----
调用IE来打开该链接

可以来改源成百：度问
Sub test()
Dim x(1 To 11) As Single
Dim y(1 To 11) As Single
Dim i As Integer
n = 1
For i = -10 To 10 Step 2
x(n) = i
Cells(n, 8) = x(n)
y(n) = x(n) ^答 3 + x(n) ^ 2 + x(n)
Cells(n, 9) = y(n)
n = n + 1
Next
End Sub