选定单元格区域求和并复制，支持快捷键快速操作

daydayyuman

在工作中经常遇到需要核对数据，选择若干个单元格后，在右下角状态栏可以看到求和结果，然后将这个结果和另一个数据比较。有没有办法直接对选定单元格区域求和，然后自动复制，这样就很方便的把这些单元格的总和粘贴到其它地方。

最好能支持快捷键操作，不局限于某一个固定的excel表格。

正义的小钢炮

感觉是木有，请楼下回答

leolee82

一行代码就可以的，复制到剪贴板可以论坛里找找，也是一行代码
下面是我自己用的，供参考
Sub CopyVisibleSelectionSum2Clip_Value_Result()
On Error Resume Next
Dim vSum
vSum = Application.WorksheetFunction.sum(Selection.SpecialCells(xlCellTypeVisible))

msg = "当前选择区域可见单元格总和为:" & vSum

Application.CutCopyMode = False
With CreateObject("ExDIY.F").GetClipboard
    .Clear
    .setText vSum
End With

CreateObject("ExDIY.F").MsgBoxEx msg, VbMsgBoxStyle.vbInformation, dwTimeout / 1000 & "秒后自动关闭", , , dwTimeout

End Sub

wanghan519

ahk写的鼠标快捷键，用了很久了
https://gitee.com/wanghan519/ahk4excel/tree/master

mp3_2004

wanghan519 发表于 2023-3-28 05:21
ahk写的鼠标快捷键，用了很久了
https://gitee.com/wanghan519/ahk4excel/tree/master

请问具体是怎么操作啊

wanghan519

mp3_2004 发表于 2023-3-28 16:56
请问具体是怎么操作啊

ahk是代码，exe执行后可以从任务栏右键退出
选中区域，按鼠标侧键4，会先排除隐藏的行列，然后把可见的单元格相加，然后显示一个tooltip，和存入剪贴板
对准一个单元格，按鼠标中键，会仅粘贴值
试了一下，功能反应有点迟钝，后来好像改写过，先试试吧

mp3_2004

wanghan519 发表于 2023-3-28 17:05
ahk是代码，exe执行后可以从任务栏右键退出
选中区域，按鼠标侧键4，会先排除隐藏的行列，然后把可 ...

操作是成功了，但是主要是这个功能停不下来，要完全退出才行，否则很容易误操作，随便按中键，就替换了数据了

wanghan519

mp3_2004 发表于 2023-3-28 17:23
操作是成功了，但是主要是这个功能停不下来，要完全退出才行，否则很容易误操作，随便按中键，就替换了数 ...

是刚进论坛时写的，现在想来有很多问题，要不就用楼上的vba代码吧，应该会快很多，或者删掉不需要的快捷键，然后重新compile