举例对两张表格进行合并计算,点击”数据“--”合并计算“,在合并计算内,函数选择求和,在”所有引用位置“选择要求和的区域”添加“,直到把所有要求和的区域都添加进来,标签位置勾选”首行“点确定显示求和结果。
可以按照如下操作:
1、首先用WPS打开表格,选中该列;
2、选择“数据”-“重复项”-”高亮显示重复项“-”设置“,会出现图所示,点击”确定“;
3、重复选项将会用橙色标记出来,
4、选中该列,再次点击选择“数据”-“重复项”-”删除重复项“,出现提示框,”删除重复项“
5、重复项会留下一个唯一值,点击”确定“,删除重复完成。
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.奇数行相加:
=SUMPRODUCT(A1:A30*MOD(ROW(A1:A30),2))
2.偶数行相加:
=SUMPRODUCT(A1:A30*(MOD(ROW(A1:A30),2)=0))
将A1:A30换成实际数据区域。
如何求和具体步骤:
一、表格上面有一个自动求和标志,你可以选定一排要求和的数字,然后按自动求和的标志,那个标志有点像一个躺着的M。
二、直接在表格输入一个=号,然后选择你要相加的数字,相当于=1+1这样子,然后按回车键,求和值就出来了,第二种适合几个数字相加,如果是一大排数字,就需要用自动求和了。
三、=SUM(参数)参数可以用数据区域,也可直接录入数字。如果多个参数,用英文半角逗号隔开。 在开始菜单下有如图按钮: 框选A.B.C.D四格,选好后,用鼠标光标找到工具栏的求和按钮“∑”,按一下和就出现在D格内了。这是行里求和,同样,在列里求和也按此法操作:框选1,2,3,4,……最终留一个空格,按求和按钮就会得出结果的。
match得到伙食费在第二个表表头行的位置,char得到对应的列号。然后用INDIRECT进行sum求和。形如下图,有公式
B1=SUM(INDIRECT("Sheet2!"&CHAR(MATCH(A1,Sheet2!$1:$1,0)+96)&"2:"&CHAR(MATCH(A1,Sheet2!$1:$1,0)+96)&100))