Автоматическое удаление отдельных строк в большой таблице

откуда вы сформировали этот файл

|||||||||
|||||||||
ДОБЫЧА ПОЛЕЗНЫХ ИСКОПАЕМЫХ||===|слить|===|===|===|===|===|===
человек|||||||||
%|50||||||||
%|30||||||||
в том числе:|||||||||
мужчин|||удал||||||
человек|30||удал||||||
%|3.4||удал||||||
%|100||удал||||||
женщин|||||||||
человек|50||||||||
%|100||||||||
%|||||||||
ОБРАБАТЫВАЮЩИЕ ПРОИЗВОДСТВА|||||||||
человек|123||||||||

Вообще изначально таблица формируется в Excell из специальной программы, обрабатывающей массивы данных. Я скопировал таблицу из Excell в Word и начал в ворде форматировать. Вы говорите что проще в Экселе поудалять?

Короче, попробуйте так (макросы для экселя)

Sub DeleteRows()
    Dim arr(), i As Long, address As String
    Application.ScreenUpdating = False
    arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 4 To UBound(arr)
        If arr(i, 1) = "мужчин" Then
            If address = "" Then
                address = "A" & i & ":A" & i + 4
            Else
                address = address & "," & "A" & i & ":A" & i + 4
            End If
        End If
    Next
    MsgBox address
    Range(address).EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

Sub MergeCells()
    Application.ScreenUpdating = False
    Dim arr(), i As Long
    arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 3 To UBound(arr)
        If arr(i, 1) = UCase(arr(i, 1)) And arr(i, 1) <> "%" Then Range("A" & i & ":J" & i).Merge
    Next
    Application.ScreenUpdating = True
End Sub

МВТ, проверил первый макрос. работает. но удаляется и строка с текстом женщин. Её удалять не надо.

Второй макрос работает. СПАСИБО.

Просьба, поясните, какие алгоритмы они используют. ну т.е. как он работает? Как эти макросы можно отредактировать, чтобы я мог применять эти макросы в качестве шаблонов для других случаев. например, когда надо удалить строку с другим текстом в ячейке, когда надо удалить, например, одну строку после строки с текстом =мужчин=, а не три как в вашем коде...

И просьба, желательно для Wordа бы макрос. А то я же когда из экселя копировал таблицу. замучился её форматировать. и опять тогда придется форматировать...

МВТ,  благодарю за помощь. Всёработает. ВАш макрос работает в Excell.
Ещё мне для Ворда помог с макросом Александр. Вот его код:

'Удаление строк
Sub DeleteRows()
    Dim oRow As Row
    Set oRow = Selection.Tables(1).Rows.First
    Do
        If oRow.Cells(1).Range.text Like "мужчин*" Then
            oRow.Next.Delete
            oRow.Next.Delete
            oRow.Next.Delete
            Set oRow = oRow.Next
            oRow.Previous.Delete
        Else
            Set oRow = oRow.Next
        End If
    Loop Until oRow Is Nothing
End Sub

'Объединение ячеек
Sub MergeCells()
'    Массив со строками, которые должны быть в первой ячейке объединяемых строк таблицы
    Dim Branches() As Variant
    Branches = Array( _
                    "Сельское хозяйство, охота и лесное хозяйство", _
                    "Добыча полезных ископаемых", _
                    "Добыча топливно-энергетических полезных ископаемых", _
                    "Добыча полезных ископаемых, кроме топливно-энергетических", _
                    "Обрабатывающие производства", _
                    "Производство пищевых продуктов, включая напитки, и табака", _
                    "Текстильное и швейное производство", _
                    "Производство кожи, изделий из кожи и производство обуви", _
                    "Обработка древесины и производство изделий из дерева", _
                    "Целлюлозно-бумажное производство; издательская и полиграфическая деятельность", _
                    "Производство кокса, нефтепродуктов и ядерных материалов", _
                    "Химическое производство", _
                    "Производство резиновых и пластмассовых изделий", _
                    "Производство прочих неметаллических минеральных продуктов", _
                    "Производство готовых металлических изделий", _
                    "Производство машин и оборудования", _
                    "Производство электрооборудования, электронного и оптического оборудования", _
                    "Производство транспортных средств и оборудования", _
                    "Прочие производства", _
                    "Производство и распределение электроэнергии, газа и воды", _
                    "Строительство", _
                    "Связь", _
                    "Транспорт и связь" _
                    )
    Dim i As Long
    Dim cellText As String
    For i = 1 To Selection.Tables(1).Rows.Count
        With Selection.Tables(1).Rows.Item(i)
            cellText = .Cells(1).Range.text
            cellText = Left(cellText, Len(cellText) - 2)
            If Contains(Branches, cellText) Then
                .Cells.Merge
                .Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
            End If
        End With
    Next
                   
End Sub

'Функция проверяет содержится ли в массиве искомая строка
Private Function Contains(ar() As Variant, text As String)
    Dim i As Integer
    If Len(text) = 0 Then
        Contains = False
        Exit Function
    End If
    For i = 1 To UBound(ar)
        If Trim(LCase(ar(i))) = Trim(LCase(text)) Then
            Contains = True
            Exit Function
        End If
    Next
    Contains = False
End Function

А по поводу вставки таблиц из экселя в ворд есть проблемы. например, таблица выходит за границы документа, приходится сдвигать графы по порядку..документ то огромный, таблица на 100стр. одну графу сдвинул, ждешь пока это по всей таблице пройдет, секунд 20.. тормозит.. но где то здесь на форуме я видел рекомендации по грамотной вставке таблиц из эксел..

А какова вообще цель переноса всех данных в ворд? Во-первых, можно переносить относительно небольшими частями актуальную на данный момент информацию. Во-вторых (а проблема, судя по всему в выводе на печать) достаточно несложно настроить все, что надо в самом экселе и печатать прямо из него. Проще говоря, что Вы хотите получить из своей таблицы?