VBA 把数组写到单元格

数组1：0到50
数组2：1，4，5，10，24，38，49
要求：把数组1中除数组2外的所有不重复数值粘贴到A列。谢谢！满意回答 
for I =1 to 50
if I <>1 and I<>4 and I<>5 and I<>10 and I<>24 and I<>38 and I<>49 then
M=M+1
range("A" & M)=I
end if
next
追问 这个用数组  arr(i)   arr(ii)   怎么写啊？
 回答
Sub Marr()
    Dim arr1, arr2(50), I, II
    
    arr1 = Array(1, 4, 5, 10, 24, 38, 49)
    For I = 1 To 50
        arr2(I) = I
    Next
    
    For I = 1 To 50
        For II = LBound(arr1) To UBound(arr1)
            If arr1(II) = arr2(I) Then
                GoTo line1
            End If
        Next
        M = M + 1
        Range("A" & M) = arr2(I)
line1:
    Next
End Sub