数组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
联系客服