vba中遍历数组元素比较