Simone
Sub s() Cells.Interior.ColorIndex = xlNone i = 6 Do While Cells(i, 1) <> "" t = Trim(Cells(i, 1)) If l < Len(t) Then l = Len(t) Cells(i, 1) = t i = i + 1 Loop n = i - 1 Range("6:" & n).Copy Cells(i, 1) k = 6 For i = 1 To l For j = n + 1 To 袜胡颂2 * n - 5 If Len(Cells(j, 1)) = i Then 告郑 Rows(j).Copy Rows(k) k = k + 1 做历 For jj = j + 1 To 2 * n - 5 If Cells(jj, 1) = Cells(j, 1) Then Rows(jj).Copy Rows(k) Cells(k - 1, 1).Resize(2).Interior.Color = vbYellow k = k + 1 Rows(jj).Clear End If Next Rows(j).Clear End If Next NextEnd Sub
