av8d

¦^´_ 2# yen956


    ¤Ó¯«°Õ!
§Ú·Q¸ß°Ý¤@¤U~¦pªG§Ú·Q­×§ï¦¨½Æ»s¿ï¨úªº~¸Ó¦p¦ó§ï?
§Ú¥ý¬ã¨s¤@¤U~¦A¦¸·PÁÂ

yen956

¦^´_ 1# av8d
¬O¤£¬O³o­Ó·N«ä?

1. Private Sub CommandButton1_Click()
   
2.     Dim Rng, rngE As Range, row1 As Integer
   
3.     end1 = [A65536].End(xlUp).Row
   
4.     Set rngE = [E2].Resize(end1, 1)
   
5.     For Each Rng In rngE
   
6.         If Rng = "" Then
   
7.             Cells(Rng.Row, 1).Resize(1, 4).Copy
   
8.             row1 = [I65536].End(xlUp).Offset(1, 0).Row
   
9.             Cells(row1, 9).Resize(1, 4).Select
   
10.             ActiveSheet.Paste
    
11.         End If
    
12.     Next
    
13. End Sub
    
14. 
    
15. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
16.     Dim rngE As Range
    
17.     end1 = [A65536].End(xlUp).Row
    
18.     Set rngE = [E1].Resize(end1, 1)
    
19.     If Not Intersect(Target, rngE) Is Nothing Then
    
20.         If Target = "v" Then
    
21.             Target = ""
    
22.         Else
    
23.             Target = "v"
    
24.         End If
    
25.     End If
    
26. End Sub

½Æ»s¥N½X