Страницы: 1
RSS
Пронумеровать группы ячеек
 
Всем доброго времени суток! В колонке А группы желтых и фиолетовых ячейки , а так же единичные желтые и фиолетовые ячейки. Мне нужно пронумеровать по порядку только  группы желтых ячеек, а единичные желтые ячейки пометить единицей. Подскажите пожалуйста формулу. Образец того что мне нужно во вложении.Спасибо всем за помощь.
 
Цитата
Подскажите пожалуйста формулу
Я формулой не умею.
Попробуйте макрос
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim n As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("B1:B" & iLastRow).ClearContents
  For i = 1 To iLastRow
    If Cells(i, "A").Interior.ColorIndex = 6 Then
      Cells(i, "B") = 1
      n = 1
      Do While Cells(i + n, "A").Interior.ColorIndex = Cells(i, "A").Interior.ColorIndex
        If i + n > iLastRow Then Exit For
        Cells(i + n, "B") = n + 1
        n = n + 1
      Loop
      i = i + n - 1
    End If
  Next
End Sub
 
Kuzmich,
Спасибо за помощь. Но к сожалению я макросом не умею пользоваться. Я знаю что формулой намного проще. Но не знаю какой.
 
=ЕСЛИ(A2="ниже";"";ЕСЛИ(A2<>A1;1;C1+1))
Только добавьте строку заголовок
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
Страницы: 1
Наверх