Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос-счетчик одинаковых ссылок
 
#1
18.05.2020 10:51:27
Во вложении файл с двумя вкладками До работы макроса и После. Подскажите, пожалуйста, макрос, который считал бы одинаковые адреса ссылок и нумеровал бы их цифрами от 1 до 4 по порядку. Заранее спасибо за Ваши ответы.
 
 
 
#2
18.05.2020 12:24:50
Вариант:
Код
Sub Schetchik()
    Dim i&
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
 If Cells(i, 3).Value <> Cells(i - 1, 3).Value Then
    Cells(i, 4).Value = Cells(i - 1, 4).Value + 1
 End If
 If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
    Cells(i, 4).Value = Cells(i - 1, 4).Value
 End If
 If Cells(i - 1, 4).Value = 4 And Cells(i, 3).Value <> Cells(i - 1, 3).Value Then
    Cells(i, 4).Value = 1
 End If
Next i
End Sub
 
 
 
Страницы: 1
Наверх