VBA 在循环里多次redim动态数组一定注意，需要加preserve1 错误例子2 正确例子3 重点语句：
1 错误例子 For i = 1 To count_new Randomize p2 = Int(1 + 10 * Rnd) Debug.Print "第" & i & "次随到的p2=" & p2 ReDim arr7(1 To i) '这里没写preserve 害的好惨！！
