- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 270
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-11-4
               
|
2#
發表於 2012-6-28 20:13
| 只看該作者
回復 1# a703130 - Sub nn()
- Dim Rng As Range, ay(10, 3)
- Set Rng = Range([B2], Cells(Rows.Count, 3).End(xlUp)).SpecialCells(xlCellTypeConstants)
- r = 3
- For i = 1 To Rng.Areas.Count Step 2
- ar = Union(Rng.Areas(i), Rng.Areas(i + 1))
- k = Application.Max(Application.Index(ar, , 1))
- m = Application.Min(Application.Index(ar, , 1))
- a = Array(k, 90, 80, 70, 60, 50, 40, 30, 20, m)
- n = Rng.Areas(i).Cells(1, 1).Offset(, -1)
- n1 = Rng.Areas(i + 1).Cells(1, 1).Offset(, -1)
- For j = 0 To 9
- s = Application.VLookup(a(j), Rng.Areas(i), 2, 0)
- s1 = Application.VLookup(a(j), Rng.Areas(i + 1), 2, 0)
- ay(j, 0) = s
- ay(j, 1) = s1
- ay(j, 2) = a(j)
- Next
- Cells(r, 8).Resize(10, 3) = ay
- r = r + 12
- Erase ay
- Next
- End Su
|
|
發表於 2012-6-28 18:58
| 
