Question

我需要在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

因此，结果执行类似的操作：

         Column A                  Column B
Rows 1 | N°                        | REFERENCE EXP
Rows 2 | 1                         | 305-871
Rows 3 | 2                         | 402-920
Rows 4 | 2                         | 402-920
Rows 5 | 3                         | 406-585

Answer 1

我已经找到了增加的方法，但是增加并没有停止...

我的代码：

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`

（我要问how to stop the increment的下一篇文章）

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

1 个答案: