为所有工作表中的列中的所有单元格添加值

Question

我在网站上找到了这个宏，它确实需要它来处理我需要将它复制到我的电子表格中的所有行的例外情况和所有床单。任何人都可以帮助我吗？

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub 
    [B1] = [B1] + [A1] 
End Sub 

Answer 1

在ThisWorkbook，把你的代码在Workbook_SheetChange事件做出任何时候工作表被更改，更改。例如：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
'put your code here 
End Sub 

因此，对于你上面的代码，这将是这样的：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub 
    [B1] = [B1] + [A1] 
End Sub