一、进行单行自动求和:
1.打开WPS ,选择要求和的单行数据。在框选的时候,2113记得在最后面留下一个空格。如下图。
2. 选择好后,找到工具栏5261中的“自动求和4102”按钮,点击这个按钮,下图箭头所示
3.点击后,即1653可在选中行当中的最后一个空格中自动出现单行的和
4.如果要一次性多求几行的和,那么可以同时框选多行,后面同样留下一个空白格。
5. .然后再次单击工具栏的“自动求和”,即可一次性完成多行的自动求和。
二、单列的自动求和
1.单列的自动求和和单行的自动求和类似。先用鼠标框选要求和的单列,在列的后面留下一个空白格。
2.点击自动求和按钮后,即可完成列的自动求和。
3.选中多列,然后点击自动求和,即可完成多列的自动求和。
总:这两个方法属于快捷求和,用的比较多,可以试试。
以WPS 2019版为例
1. 打开文档,选中需要计算的表格数字;
2.点击“表格工具”—“快速计算”—“求和”即可。
Sub 特定区域按颜色求和()
Dim Rngone As Range, Rng As Range, Rg As Range, RngSet As Range, RngColor As Range
Dim MsgR As VbMsgBoxResult
On Error Resume Next
Set RngSet = Selection
Set Rng = Application.InputBox("请指定待求和区域" & Chr(10) & "多个区域可用逗号,隔开", "区域", RngSet.Address, , , , , 8)
If Err.Number > 0 Then Exit Sub
linecolor:
Set RngSet = Selection
Set RngColor = Application.InputBox("请选择一个单元格:指定需要求和单元格的填充颜色" & Chr(10) & "求和时将忽略文本", "指定求和的颜色", RngSet.Address, , , , , 8)
If Err.Number > 0 Then Exit Sub
If RngColor.Count > 1 Then
MsgBox "请选择一个单元格以确定求和的颜色" & Chr(10) & "必须是单个且不能是合并单元格", , "提示"
GoTo linecolor
End If
For Each Rngone In Rng
If Rngone.Interior.Color > RngColor.Interior.Color Then GoTo line
If TypeName(Rngone.Value) = "Error" Then
If MsgBox("单元格" & Rngone.Address & "存在错误值" & Chr(10) & "选择确定将忽略错误值", vbOKCancel, "提示") = vbCancel Then
Exit Sub
Else
GoTo line
End If
End If
If Rg Is Nothing Then
Set Rg = Rngone
Else
Set Rg = Union(Rg, Rngone)
End If
line:
Next
If Rg Is Nothing Then
MsgBox "没有满足条件的单元格", , "提示"
Else
If MsgBox("是否通过单元格输出结果", vbYesNo, "提示") = vbYes Then
Set Rng = Application.InputBox("请指定存放输出结果的单元格", "提示", , , , , , 8)
Rng = Application.WorksheetFunction.Sum(Rg)
Else
MsgBox "结果为:" & Application.WorksheetFunction.Sum(Rg), , "计算结果"
End If
End If
End Sub
,
1、首先,打开电脑中的WPS文字(Word)软件
2、然后在文字界面上插入表格和数据(可以是多个数据),如下图计算其和,结果显示在最下面的表格中。
3、然后将已知数据选中,然后点击上方菜单中的“表格工具”,然后再点击下方的“快速计算”按钮。
4、在弹出的下拉菜单中点击“求和”项,系统自动将其求和结果填写在最下方的表格中。
5、如果数据在行中,求其和方法和上面一样,先选中数据行,然后点击菜单中的“表格工具”,再点击下方的“快速计算”按钮下拉菜单中的“求和”
6、其计算结果将在所在数据行最后一个表格显示。