register313

¦^´_ 1# lionliu

1. Sub xx()
   
2. Columns("D:IV") = ""
   
3. [D6] = "BRAND"
   
4. For Each a In Range([B2], [B65536].End(xlUp))
   
5.   Set Rng = Columns("D").Find(a, , , xlWhole)
   
6.   If Rng Is Nothing Then [D65536].End(xlUp).Offset(1, 0) = a
   
7.   Set Rng = Columns("D").Find(a, , , xlWhole).Offset(0, 252)
   
8.   Rng.End(xlToLeft).Offset(0, 1) = a.Offset(0, -1)
   
9. Next
   
10. End Sub

½Æ»s¥N½X