Hsieh

1. Sub ¦h­«¤ÀªR()
   
2.     Dim Rng As Range, A As Range
   
3.     With Sheet1
   
4.         Set Rng = .Range("I2").CurrentRegion
   
5.         r = Selection.Count
   
6.         If Not Intersect(Selection, Rng) Is Nothing Then
   
7.         Set A = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
   
8.             Application.Intersect(Selection.EntireRow, Rng).Copy A.Offset(, 8)
   
9.             .[A2].Copy A
   
10.             A.AutoFill A.Resize(r, 1)
    
11.        End If
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 2# GBKEE
GBKEE¨}®v§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!µ{¦¡¥u¯à³æ¿ï
             ¥i§_¥H­×§ï¦³½Æ¿ï¥\¯à©O?  
          ¦pªþÀÉLeov34-2½Ð¦A¨¯­WÅo,ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 1# myleoyes

1. Sub ¦h­«¤ÀªR()
   
2.     Dim Rng As Range
   
3.     With Sheet1
   
4.         Set Rng = .Range("I2").CurrentRegion
   
5.         Set Rng = .Range(Rng(2, 1), Rng(Rng.Count))
   
6.         If Not Intersect(ActiveCell, Rng) Is Nothing Then
   
7.             .[A2].Copy .Range("A" & Rows.Count).End(xlUp).Offset(1)
   
8.             .Cells(ActiveCell.Row, "I").Resize(, 7).Copy .Range("I" & Rows.Count).End(xlUp).Offset(1)
   
9.        End If
   
10.     End With
    
11. End Sub

½Æ»s¥N½X