¦U¦ì¤j¤j¦n¡G
¤U¦C»yªk¦p¦ó¼W³]±ø¥ó§PÂ_ ar
¬O¤@ºû°}¦C©Î¬O¤Gºû°}¦C©O¡H
Sub aa()
Dim ar1, ar2, ar3
Dim mData()
Dim s%, s1%, n1%, n2%
Dim mSht1 As Worksheet
Dim mSht2 As Worksheet
Dim ar
Set mSht1 = Worksheets(1)
Set mSht2 = Worksheets(2)
With mSht1
ar1 = .Range("a1:c5") '¤Gºû°}¦C
ar2 = .Range("e8:g8")
ar2 = Application.Transpose(Application.Transpose(ar2)) '¤Gºû°}¦CÂন¤@ºû°}¦C
ar3 = .Range("h10:j14") '¤Gºû°}¦C
ReDim Preserve mData(0)
mData(0) = ar1
ReDim Preserve mData(1)
mData(1) = ar2
ReDim Preserve mData(2)
mData(2) = ar3
s = UBound(mData)
For s1 = 0 To UBound(mData)
ar = mData(s1) '¦p¦ó§PÂ_ar ¬O¤@ºû°}¦C©Î¬O¤Gºû°}¦C©O¡H
n1 = UBound(ar, 1)
n2 = UBound(ar, 2)
'if ¤Gºû°}¦C®É then
mSht2.Range("a65536").End(xlUp).Resize(n1, n2) = ar '·íar=mdata(1)®É¬°¤Gºû°}¦C¡A¨Ï¥Î¦¹»yªk¡C
'if ¤@ºû°}¦C®É then
mSht2.Range("a65536").End(xlUp).Resize(, n2) = ar '·íar=mdata(1)®É¬°¤@ºû°}¦C¡A¨Ï¥Î¦¹»yªk¡C
End If
Next
End With
End Sub
ÁÂÁ¦U¦ì¤j¤j¡C |