yen956

§Aªº·N«ä¬O­n§â­«ÂЪº "¦WºÙ" ¦C§R°£¶Ü?
­«ÂЪº "¦WºÙ" ³Ì¥ªÃ䪺 "A", "B", "C", ¥u«O¯d¤@¦C?
¥B§R°£¦C¥H«e, ¾¨¶q«O¯d "¦aÂI", "¹q¸Ü" ?
(¥B "A" ªº­«­n©Ê > "B" ªº­«­n©Ê > "C" ªº­«­n©Ê >)

yen956

¦^´_ 1# ¥d¹Å¶ð
¦pªG»Ý¨D¦p3¼Ó©Ò»¡.
«h¡G
¥ý±N¸ê®Æªí«ö¤É¾­±Æ§Ç, ¥D­nÁä¡÷¦WºÙ(BÄæ), ¦¸­nÁä¡÷Ãþ§O(AÄæ)

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer
   
3.     Dim strB, strC As Range
   
4.     For i = [B2].End(xlDown).Row To 2 Step -1
   
5.        Set strB = Cells(i - 1, 2)
   
6.        Set strC = Cells(i, 2)
   
7.        If strC.Value = strB.Value Then
   
8.            If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
   
9.                 strB.Offset(0, 1) = strC.Offset(0, 1)
   
10.            End If
    
11.            If strB.Offset(0, 2).Value = "" And strC.Offset(0, 2).Value <> "" Then
    
12.                 strB.Offset(0, 2).Value = strC.Offset(0, 2).Value
    
13.            End If
    
14.            strC.EntireRow.Delete
    
15.        End If
    
16.     Next
    
17. End Sub

½Æ»s¥N½X

µ²ªG¦p¤U¹Ï

yen956

¦^´_ 7# ¥d¹Å¶ð
1. ¦^6f, ©êºp, §Úªº¬O 2003, ¤£²M·¡¨º­Ó«ö¶sªº§@¥Î!
2. ¦^7f, ¨º¬OVBA, °t¦X CommandButton1 ¥Îªº,
3. «Øij¤U¦¸ pos ¹Ï®É, ³s¡iÄæ¦W¡j¤Î¡i¦C¸¹¡j¤@°_  pos ¥X¨Ó,
¤j®a¤ñ¸û®e©ö¬Ý±oÀ´.
ªþ¤WÀÉ®×(¤w§â¡i§Ç¸¹¡j¦C¤J¤F), ½Ð°Ñ¦Ò¬Ý¬Ý.

§R°£­«ÂЦC.7z
http://www.mediafire.com/download/whhfyklg45t6yu1/%E5%88%AA%E9%99%A4%E9%87%8D%E8%A6%86%E5%88%97.7z

yen956

¦^´_ 9# ¥d¹Å¶ð
±N8F ªº §R°£­«ÂЦC.7z §ì¤U¨Ó,
¥´¶} VBA ¦A­×§ï.

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer
   
3.     Dim strB, strC As Range
   
4.     '
   
5.     '¥ý±N¸ê®Æªí«ö¤É¾­±Æ§Ç, ¥D­nÁä¡÷¦WºÙ(CÄæ), ¦¸­nÁä¡÷Ãþ§O(AÄæ)¡F Range("A1:E21")¬O±Æ§Ç½d³ò
   
6.     [A1].Resize([A1].End(xlDown).Row, [A1].End(xlToRight).Column).Sort _
   
7.               Key1:=Range("C2"), Order1:=xlAscending, _
   
8.               Key2:=Range("A2"), Order2:=xlAscending, _
   
9.               Header:=xlYes
   
10.                   
    
11.     For i = [C2].End(xlDown).Row To 2 Step -1
    
12.        Set strB = Cells(i - 1, 3)
    
13.        Set strC = Cells(i, 3)
    
14.        If strC.Value = strB.Value Then
    
15.       
    
16.            '«O¯dDÄæ¸ê
    
17.            If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
    
18.                 strB.Offset(0, 1) = strC.Offset(0, 1)
    
19.            End If
    
20.            
    
21.            '«O¯dEÄæ¸ê
    
22.            If strB.Offset(0, 2).Value = "" And strC.Offset(0, 2).Value <> "" Then
    
23.                 strB.Offset(0, 2).Value = strC.Offset(0, 2).Value
    
24.            End If
    
25.            '
    
26.            '½Æ»s¤W¦CVBA, ¦A­×¦A°Ñ¼Æ§Y¥i
    
27.            '
    
28.            strC.EntireRow.Delete
    
29.        End If
    
30.     Next
    
31. End Sub

½Æ»s¥N½X