基于其他列自动编号

Question

我想通过excel中的宏来处理我要处理的文件。

1. A列保存1-10
的值
2. C列保存C1
中的值
3. 对于A列中的每个值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