Ребят, есть у кого скриптик для объеденения одинаковых ячеек в одну ?
Т.е.
Есть например столбец



И вот ячейки, где за АААА следует АААА и где за СССС следует СССС должны быть объеденены в одну, т.е. должно получиться:



А если это возможно реализовать встроенными средствами офиса - объясните плз.    

Вот например пройти как можно пройти по столбцу E. 

Не, мне немного не это надо.
Там есть функция такая "Merge"
Надо, чтобы не просто удаляла записи, а соединяла ячейки. 

В общем, вот что пока получилось:



Ещё бы убрать подтверждения и было бы совсем замечательно.
Кстати, никто не знает, как это сделать ? 

Это сообщение отредактировал(а) Eland - 23.5.2006, 15:11

 

Мучила меня такая фигня. Попробуй это

Sub Объединение_ячеек()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
A = Selection.Rows.Count
Cells(1, 2).EntireColumn.Insert
Cells(1, 2).EntireColumn.Insert
For i = 1 To A
If Cells(i, 1) <> Cells(i + 1, 1) Then
Cells(i, 2).FormulaR1C1 = "=ROW()"
Cells(i, 3).FormulaR1C1 = "=COUNTIF(C[-2],RC[-2])"
Columns("C:C").Copy
Columns("C:C").PasteSpecial Paste:=xlPasteValues
End If
Next i
Cells(i + 1, 2).FormulaR1C1 = "=ROW()"
j = 1
Do
Do While Cells(j, 3) = 1
j = j + 1
Loop
Cells(j, 2).End(xlDown).Select
Set x = Selection
Range(Cells(j, 1), Cells(x - 1, 1)).ClearContents
Range(Cells(j, 1), Cells(x, 1)).Merge
j = x + 1
        If x = A + 2 Then
        Exit Do
        End If
Loop
Columns("B:C").EntireColumn.Delete
End Sub