- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
2#
發表於 2012-2-14 14:24
| 只看該作者
回復 1# turbine - Sub YY()
- RS = 2: RT = 2
- With Sheets("物料總檔")
- Do While .Cells(RS, "A") <> ""
- CT = 4
- If .Cells(RS, "A") <> .Cells(RS - 1, "A") Then
- .Cells(RS, "A").Resize(1, 3).Copy Sheets("整理檔").Cells(RT, "A")
- Do While .Cells(RS + 1, "A") = .Cells(RS, "A")
- .Cells(RS + 1, "B").Resize(1, 2).Copy Sheets("整理檔").Cells(RT, CT)
- RS = RS + 1
- CT = CT + 2
- Loop
- RT = RT + 1
- End If
- RS = RS + 1
- Loop
- End With
- End Sub
|
|
