register313

¦^´_ 3# YUPOYU

1. Sub aa()
   
2.   Sheets("Sheet2").[A2:A65536] = ""
   
3.   For R = 1 To Sheets("Sheet1").[A1].End(xlDown).Row
   
4.     For C = 1 To Sheets("Sheet2").[A1].End(xlToRight).Column
   
5.       If Sheets("Sheet2").Cells(1, C) = Sheets("Sheet1").Cells(R, C + 1) Then
   
6.          Sheets("Sheet2").[A65536].End(xlUp).Offset(1, 0) = Sheets("Sheet1").Cells(R, 1)
   
7.       End If
   
8.     Next C
   
9.   Next R
   
10. End Sub

½Æ»s¥N½X