­ã´£³¡ªL

¢°¡D¤½¦¡ªk¡G
¢Ð¢±¡G
=SUM(N(OFFSET(Sheet1!$A$1,MATCH($A2,Sheet1!$A:$A,)-1,MATCH(B$1&"/close",Sheet1!$1:$1,)-{6,1}))*{-1,1})
¡@
¢±¡DVBA¡G°j°é¤@¦¸¶]§¹
Sub T1014_1()
Dim R&, xR As Range, X&, j&
With Sheets("Sheet2")
¡@¡@¡@Set xR = .[B1]
¡@¡@¡@R = .Cells(Rows.Count, 1).End(xlUp).Row - 1
¡@¡@¡@If R <= 0 Then Exit Sub
End With
¡@
With Sheets("Sheet3")
¡@¡@¡@X = .Cells(Rows.Count, 1).End(xlUp).Row - 3
¡@¡@¡@If X <= 0 Then Exit Sub
¡@¡@¡@For j = 1 To R
¡@¡@¡@¡@¡@.[A2] = j
¡@¡@¡@¡@¡@Set xR = xR(2)
¡@¡@¡@¡@¡@xR.Resize(1, X) = Application.Transpose(.[H4].Resize(X))
¡@¡@¡@Next
End With
End Sub

­ã´£³¡ªL

¦^´_ 3# ®®­·


X = .Cells(Rows.Count, 1).End(xlUp).Row - 3  
¡Ä¡e¤é´Á¡fµ§¼Æ¡A­ìÀ³´î¢±¡A¦ý¶·¦Ü¤Ö¢±µ§¥H¤W¤~¯àºâ¤W¤U®t­È¡A¬G¦h´î¢°¡@
¡@
If X <= 0 Then Exit Sub
¡Ä¤é´Á¤Ö©ó¢±­Ó¡D¸õ¥X¡@

For j = 1 To R
¡Ä¥H Sheet2 ½s¸¹­Ó¼Æ¶]°j°é¡@

.[A2] = j
¡Ä¦b¢Ï¢±¶ñ¤J°j°é­È¡A¬Û·í¤_¨Ï¥Î·L½Õ«ö¶s³s«ö¡A¨Ï¤½¦¡¦Û°ÊÅÜ´«­pºâ­È¡@

Set xR = xR(2)
¡Ä­nÂà¶K®t­Èªº¦ì¸m¡A°_©l®æ¬° Sheet2 ªº¢Ð¢°¡A¶]°j°é®É¦Û°Ê¡e©¹¤U¡f²¾¤@®æ¡A§Y¢Ð¢±.¢Ð¢².......¡@

xR.Resize(1, X) = Application.Transpose(.[H4].Resize(X))
¡Ä¥H xR ¬°°ò·Ç¡A¦V¥k§ì X Äæ¼Æªº½d³ò¡A¶ñ¤J¢ÖÄæ®t­È¡@
¡Ä¦]¥Ñ¡eª½Âà¾î¡f¡A¥²¶·¨Ï¥Î Transpose ¡eÂà¸m¡f¡@