S.Range(Cells(3, 6), Cells(n, 6)).Value这里有问题，一个区域是没有value属性的 ID = IDs(i)也有问题。哪里来的i你这个函数想达到什么目的？
将单元格的值赋给数组，数组必须是二维数组。所以这句 ID = IDs(i) 应改为：ID = IDs(i,1)另外还要注意，调用函数时传递的参数i不能大于n-2
