GBKEE

¦^´_ 1# p6703

1. ub Ex()
   
2.     Dim xi As Integer
   
3.     With Sheet2.Range("L1")
   
4.         Sheet2.Range(.Cells(1), .Cells(1).End(xlToRight)) = ""
   
5.         '°j°é
   
6.         For xi = 0 To Sheet1.[B3]
   
7.             .Offset(, xi) = Sheet1.[B2] + xi
   
8.         Next
   
9.         
   
10.         '¤½¦¡
    
11.      '  .Resize(, Sheet1.[B3] + 1) = "= Sheet1!$B$2+" & "Column() -" & .Column
    
12.      '  .Resize(, Sheet1.[B3] + 1) = .Resize(, Sheet1.[B3] + 1).Value
    
13.         
    
14.     End With
    
15. End Sub

½Æ»s¥N½X