- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 254
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-23
              
|
2#
發表於 2011-1-13 10:49
| 只看該作者
回復 1# asus103
有些數值跟你A、B陣列取得方式有關
以儲存格範圍為陣列為例- Sub nn()
- Dim Ar(), Ay(), C(), A, B
- A = [B1:D2]: B = [F1:I2]
- For i = LBound(A, 1) To UBound(A, 1)
- For j = LBound(A, 2) To UBound(A, 2)
- ReDim Preserve Ar(s)
- Ar(s) = A(i, j) '取得A陣列
- s = s + 1
- Next
- For j = LBound(B, 2) To UBound(B, 2)
- ReDim Preserve Ar(s)
- Ar(s) = B(i, j) '取得B陣列
- s = s + 1
- Next
- ReDim Ay(s)
- For j = 0 To UBound(Ar)
- Ay(j) = Application.Small(Ar, j + 1) '排序
- Next
- ReDim Preserve C(k)
- C(k) = Ay: s = 0: Erase Ay '加入資料到C陣列，把暫存陣列清除
- k = k + 1
- Next
- [K1].Resize(k, UBound(A, 2) + UBound(B, 2)) = Application.Transpose(Application.Transpose(C))
- End Sub
|
|
發表於 2011-1-13 13:19
| 