объединение ячеек

[Tuco]

Здравствуйте!
Помогите, пожалуйста! В экселе в колонке есть много повторяющихся значений (от 3 до 20), которые идут одна за одной. Как можно объединить одинаковые ячейки? (Вручную это сделать трудно из-за большого объёма колонки, более 1500 строк)

[Евген]

Код: Выделить всё

x=1 ' строка с которой начинать
y=1 ' столбец который нужен (A-1, B-2 и тд)
k=x
do while cells(x,y).value<>""
if cells(x,y).value<>cells(k,y).value then
range(cells(k,y), cells(x-1,y).MergeCells=true
k=x
end if
x=x+1
loop


вставляай это в макрос и пускай

[Tuco]

так объединило только первую группу, а их больше 300...

[Евген]

Код: Выделить всё

Sub макрос()
x = 1
y = 1
k = x
Application.DisplayAlerts = False
Do While Cells(x, y).Value <> ""
If Cells(x, y).Value <> Cells(k, y).Value Then
Range(Cells(k, y), Cells(x - 1, y)).MergeCells = True
k = x
End If
x = x + 1
Loop

End Sub


так будет вернее

[Tuco]

Ба-а-а-альшущее спасибо, хотя остаётся последняя группа значений, но это уже не смертельно, можно руками...

[Евген]

да надо еще строку добавить

If Cells(x, y).Value <> Cells(k, y).Value Or Cells(x + 1, y).Value ="" Then
If Cells(x + 1, y).Value = "" Then x = x + 1
Range(Cells(k, y), Cells(x - 1, y)).MergeCells = True

пжалста

[Tuco]

Ваще супер работает всё! Спасибо!