随机在一工作表中选定一些没有规律的单元格，然后自动求和

23号人生

    各位老师好，想请教下可以实现下面的诉求吗。    在同一个工作表中随机无规律选定一些单元格，选定的单元格只有一个单元格是无数据的，其他单元格里面都有数值，选定后想执行一段代码实现将所有选定的有数值的单元格自动求和，求和结果显示在无数据的单元格里。

23号人生

Sub 自动对选定单元格进行求和()
Dim cel As Range, rng As Range
s = 0
For Each cel In Selection
    s = s + cel
Next

For Each cel In Selection
    If cel = "" Then
        cel = s
    End If
Next

End Sub

23号人生

上述代码可以实现，感谢各位老师的关注。

liucf

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = Application.Sum(Selection)
End Sub