oobird

1. Private Sub CommandButton1_Click()
   
2. With Sheet3
   
3. For Each a In .Range(.[B13], .[B26].End(xlUp))
   
4. i = i + 1
   
5. ar = Array(.[f7].Text, "s" & .[f7].Text & "-" & Format(i, "00"), .[C6], .[C7], .[C8], .[C9], .[C10], .[F8], a, a.Offset(, 1), a.Offset(, 2), a.Offset(, 3), a.Offset(, 4))
   
6. Sheet8.[A65536].End(xlUp).Offset(1, 0).Resize(, 13) = ar
   
7. Next
   
8. End With
   
9. End Sub

½Æ»s¥N½X

¥t¥~³ø»ù³æbÄæ¦]¦³ªÅ¥Õ¦r²Å¡A©Ò¥H.[B26].End(xlUp)·|§PÂ_¿ù»~¡A¿ï¤¤b15:b26,«ö¤@¤Udelete.