myleoyes

¦^´_ 10# myleoyes
¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!ÂI¿ï½Æ»s¤§2¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

GBKEE

¦^´_ 11# myleoyes

1. Sub Ex()
   
2.     Dim R As Range, Rng As Range
   
3.     With ActiveSheet
   
4.         For Each R In Selection
   
5.             If Not Intersect(R, .Range(.[j2], .[j2].End(xlDown))) Is Nothing Then
   
6.                 Set Rng = .Range("bs" & Rows.Count).End(xlUp).Offset(1)
   
7.                 Rng.Value = ActiveSheet.[A2]
   
8.                 Rng.Cells(1, 2) = R
   
9.                 Range(R.Offset(, 2), .Cells(R.Row, "T")).SpecialCells(2).Copy Rng.Cells(1, 3)
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 12# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!¨¯­WÅo!ÁÂÁ¦A¤T!