子測試2（）
Dim Arr1、Arr2
將I，j，k標註為整數
Arr1 =應用程序。選擇
如果Arr1 =““那麽
MsgBox“請選擇數據”
出口接頭
如果…就會結束
k = UBound（arr 1）
ReDim arr 2（1到k，1到2）
對於i = 1到k
對於j = 1到4
if arr 1（I，j）& lt；那就6
arr 2（I，1）= arr 2（I，1）+1
其他
arr 2（I，2）= arr 2（I，2）+1
如果…就會結束
下壹個j
接下來我
列（“f:g”）。清楚的
i =應用。選擇。行
Range（單元格（I，6），單元格（i + k - 1，7））= arr 2
末端接頭