Нумерация субтитров

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Нумерация субтитров (Формулы)

Нумерация субтитров

Юра

Дата: Понедельник, 01.07.2013, 23:17 | Сообщение № 1

Группа: Гости

Добрый день! Всё мучаюсь, не могу понять как в файле с субтитрами заменить буквы z перед таймингами на числа по порядку 1,2,3,4....
Текст там такого содержания

z
00:00:44,000 --> 00:00:49,000
bu nedenle projeye katkэ sunan, gцrsel ve
iюitsel materyalleri ьreten kiюilere ve gruplara ...

z
00:00:50,000 --> 00:00:53,000
... teююekьr etmek istiyorum.

z
00:00:55,289 --> 00:01:00,889
Britanyada ki anarko-punk sahnesi birbirlerine
gьven, saygэ ve destek tabanlэdэr...

Нужно чтобы вместо z ставился порядковый номер т.к. таких абзацев очень много. Когда нумеруеш в ворде нумеруются все четыре строки sad

Ответить

Гость

Дата: Понедельник, 01.07.2013, 23:44 | Сообщение № 2

Группа: Гости

[quote=Юра]как в файле с субтитрами заменить буквы z перед таймингами на числа по порядку [/quote]
А где файл?
biggrin

Ответить

AlexM

Дата: Вторник, 02.07.2013, 00:09 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Код вставить в Модуль1
[vba]

Код

Sub Macros()
Dim i As Long, n As Long
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Replace(Range("A" & i), Chr(160), "") = "z" Then n = n + 1: Range("A" & i) = n
Next i
End Sub

[/vba]
Запустить макрос