对任意选中区域的各列按列分别求和，将求和结果放入剪贴板中

杨皓琉

我一般是要对选中的3列分别进行求和，我自己写的程序提示类型不匹配，求教

Sub test()
Dim su As Double
Dim arr As Variant
Dim MyData As DataObject
Set MyData = New DataObject
    MyData.Clear
    arr = ActiveCell.Cells
    su = Application.SUM(Application.Index(arr, 0, 1))
    MyData.SetText su
    MyData.PutInClipboard
    su = Application.SUM(Application.Index(arr, 0, 2))
    MyData.SetText su
    MyData.PutInClipboard
    su = Application.SUM(Application.Index(arr, 0, 3))
    MyData.SetText su
    MyData.PutInClipboard
End Sub

杨皓琉

各位老师帮帮忙