- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 8# sandra_wang
每一程序是依據,每各個案所量身訂製的 .不一定套用的上.
請要說明一下差異是在哪裡, 檔案是如此龐大我找得眼花也看不出來如何幫你.
第一個問題 另有一解請參考- Sub Ex()
- Dim Rng(1 To 2) As Range, i%, ii%, C%, T%, E
- With Sheet1
- .Range("M1", .Range("M1").End(xlToRight)).EntireColumn.Clear
- Set Rng(1) = .Range("L3", .Range("L3").End(xlDown))
- C = 1
- For i = 8 To 10
- T = 1 '欄位數量->歸零
- For Each E In .Range(.Cells(1, i), .Cells(Rows.Count, i).End(xlUp)).SpecialCells(xlCellTypeConstants).Cells
- If Val(E) > 0 Then
- For ii = 1 To Val(E)
- Set Rng(2) = Rng(1).Offset(, C)
- .Cells(1, Rng(2).Column) = Replace(.Cells(1, i), "數量", "_" & T)
- Rng(2).Value = Application.Transpose(.Cells(E.Row, "b").Resize(, 4))
- Rng(2).Interior.ColorIndex = E.Interior.ColorIndex
- C = C + 1 '往右加1欄 Rng(1).Offset(, C)
- T = T + 1
- Next
- End If
- Next
- Next
- End With
- End Sub
|
|
發表於 2010-10-29 17:09
| 