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

我想在列1中添加一个连续的数字（所以A1，B1，C1，应该是1,2,3）当我在第2列中input任何数据的时候。所以如果一个单元格没有值，另一个单元格。

最终结果应该是这样的。

 A-132
 B-2 18
 C-3 16

 E 5 20

这是一个箱子的数量和configuration。

我尝试了一些东西，我错过了一个值。 任何人都可以帮忙吗？

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. 打开项目资源pipe理器 (CTRL + R)
3. 双击希望代码应用于的表单，例如Sheet1
4. 在左侧下拉菜单中select工作表，然后在右侧菜单中select更改
5. 剪切并粘贴提供的代码

希望这可以帮助。