数组求助

5252

请教如何修改下面的内容把数组中
ar(17)的值赋为A1,
ar(18)的值赋为A2 ,
ar(19)的值赋为A4,
ar(20)的值赋为A1,
ar(21)的值赋为A2,
ar(22)的值赋为A1。谢
Sub test()
Dim arr, ar(), i%, n%
arr = Range("a1:b4")
For Each Rng In Range("b1:b4")
    If Rng >= 0 Then
       For i = 1 To 4
   ReDim Preserve ar(1 To 22)
  n = n + 1
   ar(n) = arr(i, 1)
      Next
   End If
Next
Rng = Rng - 1
End Sub

abc123281

呵呵  看不懂你要干什么

5252

把单元格的内容A1:A4写入数组 ar中。其中A1为7次，A2为6次，A3为4次，A4为5次

5252

自己动手丰衣足食Sub test()
    Dim ar(), n%, rng As Range, rng1 As Range, sm%, sum1%
    sum1 = Range("e2").Value
  
   
0
    For Each rng In Range("c2", [c2].End(xlDown))
        Do While rng > 0
                ReDim Preserve ar(1 To sum1)
                n = n + 1
                ar(n) = rng.Offset(0, -1)
               rng = rng - 1
           Exit Do
        Loop
    Next
    If [e2] = 0 Then
GoTo 1
  End If
GoTo 0
1
end sub