Autonumbering на основе другого столбца

Question

Я получаю файл, который я хочу обрабатывать с помощью макроса в excel.

1. Колонка A имеет значения от 1-10
2. Колонка C содержит значение в С1
3. Для каждого значения 6 в колонке А, соответствующая ячейка в колонке C в той же строке должна быть обновлена ​​с последовательно увеличивающееся значение, начиная со значения в C1.

У меня было что-то вроде ниже, но это дало много проблем, но это показывает концепцию, которую я ищу.

Sub customernumberext() 
    Dim a As Range, i As Long 

    Range("C1").Select 
    If ActiveCell.Value <> Empty Then 
     i = "C1" 
     For Each a In ActiveSheet.Range("a:a") where a.value = "6" 
      row c = i 
      i = i + 1 
     Next a 
    Else: MsgBox ("no number present") 
    End If 
End Sub 

Answer 1

Если я правильно прочитал ваше описание и ошибочный код, это должно решить проблему.

Sub incr_C() 
    Dim rw As Long, lr As Long 
    With ActiveSheet 
     lr = .Cells(Rows.Count, 1).End(xlUp).Row 
     For rw = 2 To lr 
      If .Cells(rw, 1).Value = 6 Then 
       .Cells(rw, 3) = Application.Max(Range("C1:C" & rw - 1)) + 1 
      End If 
     Next rw 
    End With 
End Sub