подсчет совпадений! - Microsoft Office Word - Страница 2

Казанский · 13.05.2012, 18:45

Перед запуском макроса поставьте курсор в таблицу.

Код:

Sub bb()
Dim c As Cell
On Error Resume Next
With New Collection
    For Each c In Selection.Tables(1).Columns(1).Cells
        .Add 0, c.Range.Text
        If Err Then
            Err.Clear
            c.Delete
        End If
    Next
End With
End Sub

Niki12 · 14.05.2012, 01:41

Уважаемый Казанский! Огромное-преогромное спасибо! Работает великолепно! Спасибо-спасибо-спасибо!!!!!!!

13.05.2012, 18:45	#11
Казанский Старожил Регистрация: 31.12.2010 Сообщений: 2,133	Перед запуском макроса поставьте курсор в таблицу. Код: `Sub bb() Dim c As Cell On Error Resume Next With New Collection For Each c In Selection.Tables(1).Columns(1).Cells .Add 0, c.Range.Text If Err Then Err.Clear c.Delete End If Next End With End Sub` exceleved@yandex.ru Яндекс.Деньги: 410011500007619

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиск совпадений	tigran67	Паскаль, Turbo Pascal, PascalABC.NET	0	29.03.2012 16:44
присвоение переменной подсчет совпадений в строке	kosikdr	Общие вопросы C/C++	1	12.11.2010 17:52
Подсчет совпадений, если...	Sharrik	Microsoft Office Excel	4	22.09.2010 09:36
Подсчет количества совпадений в таблице	aval	Microsoft Office Excel	8	08.11.2009 21:50
Поиск совпадений	mistx	Microsoft Office Excel	22	14.08.2009 13:41

14.05.2012, 01:41	#12
Niki12 Регистрация: 13.05.2012 Сообщений: 9	Уважаемый Казанский! Огромное-преогромное спасибо! Работает великолепно! Спасибо-спасибо-спасибо!!!!!!!