資料排列問題 - Excel程式區 - 麻辣家族討論版版

[發問] 資料排列問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-10-29 17:09 | 顯示全部帖子

回復 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

複製代碼

靜思自在 : 不要小看自己，因為人有無限的可能。