- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 247
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-14
              
|
2#
發表於 2013-4-15 16:10
| 只看該作者
本帖最後由 Hsieh 於 2013-4-16 08:23 編輯
回復 1# child - Sub ex()
- Dim Ar()
- i = 2: s = 1 'i為起始列號，s為起始編碼
- With Sheets("TEST")
- Do Until i > .[A2].End(xlDown).Row '當列號大於資料尾列號則停止迴圈
- temp = .Cells(i, 1).Value '記住A欄
- Do Until .Cells(i, 1) <> temp Or i > .[A2].End(xlDown).Row '當A欄不同時或列號大於資料尾列號則停止迴圈
- temp = .Cells(i, 1): k = k + 1 '記住A欄，k計算編碼
- i = i + 1
- Loop
- ReDim Preserve Ar(j) '擴充陣列
- Ar(j) = Array(temp, s, k) '將結果置入陣列
- 'Ar(j) = Array(temp, s-0.5, k+0.5) '最小減0.5，最大加0.5
- j = j + 1 '下次陣列的大小
- s = k + 1 's為下個編碼起始
- Loop
- .[E7].Resize(j, 3) = Application.Transpose(Application.Transpose(Ar)) '將陣列寫入工作表
- End With
- End Sub
|
|
發表於 2013-4-15 13:00
| 
