如何由 SHEET1 資料轉寫在SHEET2 - Excel程式區

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

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

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 有時當思無時苦，好天要積雨來糧。