Question

EXCEL中vba如何应用整列

在表中制作 B1=A1+B1 也就是说B1会随着A1的输入而递加
现在我通过vba实现了这一功能，代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Range("B1") = Range("A1") + Range("B1")
End Sub
问题是我想让整个B列都实现这样的效果，应该怎么做，也就是B2=A2+B2 B3=A3+B3以此类推
求高人

Answer 1

软件版本：Office2007

方法如下：

1.将A列全部填充为红色：

2.Alt+F11，输入代码如下：

3.F5执行代码，就可以看到VBA填充颜色代码应用到了A列全部：

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Answer 3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Columns.Count > 1 Then Exit Sub
For Each c In Target
Cells(c.Row, 2) = Cells(c.Row, 1) + Cells(c.Row, 2)
Next
End Sub