Excel 根据另一个单元格中的另一个值增加单元格中的值

我需要用VBA做点什么，但我什么都不知道

我在网上找不到做我需要的事情的代码

我认为这可以很好地解释我需要什么，但这不起作用：

         Column A                  Column B
Rows 1 | N°                        | REFERENCE EXP
Rows 2 | 1                         | 305-871
Rows 3 | =if(B3<>B2;A3=A2+1;A3=A2) | 402-920
Rows 4 | =if(B4<>B3;A4=A3+1;A4=A3) | 402-920
Rows 5 | =if(B5<>B4;A5=A4+1;A5=A4) | 406-585

---

我已经找到了增量的方法，但增量不会停止

我的代码：

Set derlign = Range("B" & Rows.count).End(xlUp)
'MsgBox ("Dernière ligne " & derlign & " !")
Set r1 = Range("A2:A100")
Set r2 = Range("B2:B100")
For N = 2 To r2.Rows.count
    If r2.Cells(N - 1, 1) = r2.Cells(N, 1) Then
       r1.Cells(N, 1) = r1.Cells(N - 1, 1)
    Else
       r1.Cells(N, 1) = r1.Cells(N - 1, 1) + 1
    End If
Next N
End Sub`

---

我的下一篇帖子，我在那里问

欢迎来到Stack Overflow。请注意，因为这不是免费的代码编写服务，所以有必要通过显示代码来显示您迄今为止所做的尝试、遇到的困难或错误，或者至少显示您所做的研究和努力。否则它只是要求我们为你做所有的工作。阅读可能会帮助你改进你的问题。我会修改你的vba代码。到目前为止你都试了些什么。如果你不知道从哪里开始。尝试录制一个宏，然后根据自己的喜好对其进行编辑。您需要将值添加到列表中，筛选唯一值，并按a-Z或其他方式排序，然后为它们获取增量值。将增量值应用回原始列表，使其与您的值匹配。看起来很简单，但你必须自己尝试一下。我发现：代码Sub titi Dim Lig只要Lig=2的范围是b&Rows.Count.EndxlUp.Row CellsLig，1.Value=Lig-1下一个Lig End Sub.code，但该代码可以计算所有行。我只需要在行不相同的情况下计数。。。

Set derlign = Range("B" & Rows.count).End(xlUp)
'MsgBox ("Dernière ligne " & derlign & " !")
Set r1 = Range("A2:A100")
Set r2 = Range("B2:B100")
For N = 2 To r2.Rows.count
    If r2.Cells(N - 1, 1) = r2.Cells(N, 1) Then
       r1.Cells(N, 1) = r1.Cells(N - 1, 1)
    Else
       r1.Cells(N, 1) = r1.Cells(N - 1, 1) + 1
    End If
Next N
End Sub`