如何将Excel VBA自动求和结果复制到剪贴板或设为可选文本？

方案一：直接将求和结果复制到剪贴板并提示 #

修正剪贴板操作逻辑，直接把计算结果写入剪贴板，同时用MsgBox提示用户结果已复制：

Sub AutoSum()
    Dim Sumcalc As Integer
    Dim clipboard As Object
    
    ' 计算求和并写入E列最后一行
    Sumcalc = WorksheetFunction.Sum(Range("E2:E" & Cells(Rows.Count, "A").End(xlUp).Row))
    Range("E" & Cells(Rows.Count, "E").End(xlUp).Row + 1).Value = Sumcalc
    
    ' 将结果复制到剪贴板（后期绑定，无需额外引用）
    Set clipboard = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    clipboard.SetText Sumcalc
    clipboard.PutInClipboard
    
    ' 弹出提示框告知结果
    MsgBox "求和结果：" & Sumcalc & vbCrLf & "结果已复制到剪贴板", vbInformation, "计算完成"
End Sub

方案二：使用用户窗体创建可选中内容的提示框 #

如果需要让用户直接在提示框内选中复制内容，可通过简单用户窗体实现：

1. 打开开发工具，插入用户窗体，添加一个TextBox控件（设置MultiLine=True、Locked=True）和一个标题为"确定"的CommandButton
2. 编写以下代码：

模块代码 #

Sub AutoSum()
    Dim Sumcalc As Integer
    Sumcalc = WorksheetFunction.Sum(Range("E2:E" & Cells(Rows.Count, "A").End(xlUp).Row))
    Range("E" & Cells(Rows.Count, "E").End(xlUp).Row + 1).Value = Sumcalc
    
    ' 传递结果到用户窗体并显示
    With UserForm1
        .TextBox1.Text = "求和结果：" & Sumcalc
        .Show
    End With
End Sub

用户窗体按钮点击事件代码 #

Private Sub CommandButton1_Click()
    Unload Me
End Sub

原代码错误说明 #

• .GetData不是VBA中合法的剪贴板操作方法，且缺少对象前缀，导致引用无效
• MsgBox参数格式错误，正确格式需用&拼接变量与文本，而非直接传入多个参数

内容的提问来源于stack exchange，提问作者Geographos