[已解决]宏代码：如何改为数组形式

lijian8003

dsmch 发表于 2014-12-9 13:45
两段代码可以合并成一段

感谢您的帮助！
由于第1段代码运行后，需要运行如下代码，再运行第2段代码：

1. Sub 随机()
   
2. Dim rng As Range, n&, arr, i&, t, r&
   
3. Sheets("数据1").Select
   
4. For Each rng In Range("b5:k5")
   
5. arr = Range(rng, rng.End(4))
   
6. n = UBound(arr)
   
7. Randomize
   
8. For i = 1 To n
   
9. r = Int(Rnd * (n - i + 1)) + i
   
10. t = arr(r, 1): arr(r, 1) = arr(i, 1): arr(i, 1) = t
    
11. Next
    
12. rng.Resize(n) = arr
    
13. Next
    
14. End Sub

复制代码

问题1：如何在第1、第2段代码之间插入上述代码？
问题2：第2段代码如何与第1段代码分开写？
恳望不吝指教。