编辑不同的单元格时，在单元格中自动填充系列

Question

我想在第1列添加一个序号（所以A1，B1，c1，将是1,2,3）当我在第2列中输入任何数据时。所以如果一个单元格没有值，那么什么都没有在另一个单元格中输入。

最终结果应如下所示。

A- 1    32
B- 2    18
C- 3    16

E- 5     20

这是一个盒子计数和配置。

我尝试了一些事情，但我错过了一个值。有人可以帮忙吗？

Answer 1

也许这可以提供帮助，只需在A1单元格中使用此公式：

Excel 2007

=IF(LEN(B1)>0;ROW(A1);"")

Excel 2010

=IF(LEN(B1)>0,ROW(A1),"")

然后用公式填充细胞。这将在找到任何内容时写入单元格行，在不执行任何操作时写入零：

1   test
2   test
3   test
0   
5   test
0   
7   test

Answer 2

解决此问题的一种方法是利用Worksheet_Change事件。这样，您就不需要在电子表格中包含任何公式：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Application.Intersect(Target, Range("B:B")) Is Nothing Then
        End
    End If

    Target.Offset(0, -1) = WorksheetFunction.Max(Range("A:A")) + 1

End Sub

---

要实现此代码：

1. 在您的工作簿中按ALT + F11（这将打开VBA编辑器）
2. 打开 Project Explorer (CTRL + R)
3. 双击希望代码应用于的工作表，例如Sheet1
4. 在左侧下拉菜单中选择工作表，然后在右侧菜单中选择更改
5. 剪切并粘贴提供的代码

希望这有帮助。