vbA找出 数组下标越界答:y = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35)x = Array(4, 6, 8, 88, 99, 0)'---共几个相同数据 For i = 0 To UBound(y)d(y(i)...
VBA问题,两个数组A(1,1 To 1,5)和B(1,1 To 1,5)要求比较他们包含的元素...答:Sub test()a1 = Array(1, 2, 10, 7, 4)a2 = Array(1, 2, 7, 4, 10)tempArray1 = a1 tempArray2 = a2 For i = 0 To 4 For j = 0 To 4 If tempArray1(i) <> "" And tempArray2(j) <> "" Then If tempArray1(i) = tempArray2(j) Then tempArray1(i) = ""...