GBKEE

¦ý¤U©Ô»¼¼W´N¤£¦æ¤F,¬°¬Æ»ò·|³o¼Ë©O®v¥S?
leehom µoªí©ó 2015/9/15 23:39

³o¼Ë´N¥i¥H.

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim E As Range
   
4.     If Target.Column = 2 Then
   
5.         For Each E In Target
   
6.             If E = "" Then
   
7.                 E.Offset(, -1) = ""
   
8.             Else
   
9.                 E.Offset(, -1) = E & " " & E.Row
   
10.             End If
    
11.         Next
    
12.     End If
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# lpk187
¥i¥Î¦Û°Ê¶ñº¡,¸Õ¸Õ

1. Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim i As Integer
   
3.     If Target.Address = "$B$2" Then
   
4.     Application.EnableEvents = False
   
5.     Cells(2, "A") = 1
   
6.     i = Application.InputBox("How many numbers you want to add?", "Prompt", , , , , , 1)
   
7.     With Range("A2:B2")
   
8.         Range(.Cells.Offset(1), .Cells.End(xlDown)) = ""  '²M°£Â¦³¸ê®Æ
   
9.         .AutoFill Range("A2:B2").Resize(i)    '¦Û°Ê¶ñº¡
   
10.     End With
    
11.     Application.EnableEvents = True
    
12.     End If
    
13. End Sub

½Æ»s¥N½X