Помогите пожалуйста с написанием макроса, который бы объединял ячейки 1-ого столбца таблицы с одинаковым значением(например в первой, второй, третей и четвертой ячейке значение 1000, надо объеденить эти ячейки и оставить только одно значение 1000). На одном форуме нашел код, но он не работает
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
' индексы начала-конца группы одинаковых ячеек
Dim iStart As Integer
iStart = 0
Dim iFinish As Integer
iFinish = 0
' флаг объединения ячеек
Dim bMerge As Boolean
bMerge = False
Dim aCell As Word.Cell
Dim cCells As Cells
' извлекаем все ячейки столбца
Set cCells = ActiveDocument.Tables.Item( 1 ).Columns.Item( 1 ).Cells
For Each aCell In cCells
On Error Resume Next
' пропускам первую ячейку (начинаем работать со второй)
If aCell.RowIndex > 1 Then
' сравниваем значение с предыдущей
If aCell.Range.Text = cCells.Item(aCell.RowIndex - 1 ).Range.Text Then
' при равенстве значений и если нет начала группы iStart = 0, то
' начинаем ее
If iStart = 0 Then
iStart = aCell.RowIndex - 1
End If
Else
' если значения не равны, то проверяем нужно ли закончить группу
If iStart <> 0 Then
iFinish = aCell.RowIndex - 1
bMerge = True
End If
End If
End If
' если достигли конца, завершаем группу
If iStart <> 0 And aCell.RowIndex = cCells.Count Then
iFinish = aCell.RowIndex
bMerge = True
End If
If bMerge Then
' объединяем (нужен код)
bMerge = False
MsgBox iStart & " - " & iFinish
iStart = 0
End If
Next aCell
