Question

用VBA两种方法 第一种数组 第二种字典

用VBA两种方法 第一种数组 第二种字典

有1、2、3…999这999个数字中，用VBA数组和字典编写一段代码，在工作表的A列显示这些数被5除余1和余2的数字。

Answer 1

Sub s()
    Dim arr()
    For i = 1 To 999
        If i Mod 5 = 1 Or i Mod 5 = 2 Then
            k = k + 1
            ReDim Preserve arr(1 To k)
            arr(k) = i
        End If
    Next
    [a1].Resize(k) = Application.Transpose(arr)
End Sub