返回列表下一主題上一主題發帖

[發問] 如何由 SHEET1 資料轉寫在SHEET2

aoss98

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 17
點名: 0
作業系統: window xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-7-27
最後登錄: 2014-2-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-3-11 23:57 | 只看該作者

[發問] 如何由 SHEET1 資料轉寫在SHEET2

如何由 SHEET1 資料轉寫在SHEET2 ，這程式碼如何? 請各位輩賜教，謝謝!!
SHEET1 資料
ART.          COL. S M L XL 32 34 36 38
123-456 01 0 2 2    0    0    0    1    1
123-456 58 0 2 2    1    0    0    1    1
123-789 02 1 2 1    0    1    1    1    1
轉寫後 SHEET2 資料如下
ART          COL. SIZE QTY.
123-456 01 S 0
123-456 01 M 2
123-456 01 L 2
123-456 01 XL 0
123-456 01 32 0
123-456 01 34 0
123-456 01 36 1
123-456 01 38 1
123-456 58 S 0
123-456 58 M 2
123-456 58 L 2
123-456 58 XL 1
123-456 58 32 0
123-456 58 34 0
123-456 58 36 1
123-456 58 38 1
123-789 02 S 1
123-789 02 M 2
123-789 02 L 1
123-789 02 XL 0
123-789 02 32 1
123-789 02 34 1
123-789 02 36 1
123-789 02 38 1

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2013-3-12 09:31 | 只看該作者

回復 1# aoss98
試試看

Sub Ex()
Dim R As Integer, Col As Integer, AR() '():動態陣列 , AR(1)--靜態陣列(0 <-> 1)->[下限<->上限]
R = 2 '第2列
Col = 3 '第3欄
ReDim AR(0) '[ReDim 重新設置]動態陣列:設置元素範圍(0<->0)->[下限<->上限]
AR(0) = Array("ART", "COL.", "SIZE", "QTY.") '指定列陣元素的內容
With Sheet1
Do While .Cells(R, Col) <> "" '第2列->往下遇到空白儲存格則停止迴圈
Do While .Cells(R, Col) <> "" '第3欄->往右遇到空白儲存格則停止迴圈
ReDim Preserve AR(UBound(AR) + 1) '動態陣列:設置元素範圍 (0<->上限+1),Preserve:要保留舊有元素關鍵字
AR(UBound(AR)) = Array(.Cells(R, "A").Value, .Cells(R, "B").Value, .Cells(1, Col).Value, .Cells(R, Col).Value)
Col = Col + 1 '->往右
Loop
Col = 3
R = R + 1 '->往下
Loop
End With
With Sheet2
.Cells.Clear '儲存格: 清除
.[A1].Resize(UBound(AR) + 1, 4).Value = Application.Transpose(Application.Transpose(AR))
'取出陣列元素的內容
End With
End Sub