作者:乔山办公网日期:
返回目录:excel表格制作
先把你的数据排好序。就和你贴出来的这636f70797a64366样。
然后按ALT+F11,进入VBE,假设你的表是sheet1,双击sheet1,复制下面的代码。
Sub bb()
Dim irow As Integer, icol As Integer
irow = ActiveSheet.UsedRange.Rows.Count
icol = 2
ActiveSheet.Range(ActiveSheet.Cells(1, icol + 1), ActiveSheet.Cells(2, icol + 2)).ClearContents
Application.ScreenUpdating = False
Dim k As Integer
Dim c As Range
With ActiveSheet
k = 3
.Range(.Cells(1, icol + 1), .Cells(2, icol + 2)).Value = .Range("A1:B2").Value
For Each c In .Range(.Cells(3, 1), .Cells(irow, 1))
If StrComp(c.Text, .Cells(k - 1, icol + 1).Text, vbTextCompare) <> 0 Then
.Cells(k, icol + 1).Value = c.Value
.Cells(k, icol + 2).Value = c.Offset(0, 1).Value
k = k + 1
Else
.Cells(k - 1, icol + 2).Value = .Cells(k - 1, icol + 2).Value + c.Offset(0, 1).Value
End If
Next
End With
Application.ScreenUpdating = True
End Sub
关闭VBE,回到sheet1,按ALT+F8
选择bb执行即可
复制需要删除重复项的内容,粘贴到右边的单元格,如图所知示
选中复制好的内容
菜单栏点击数据,删除重复项(版本不一样可能按钮具体位置不太一样)
弹出框点击删除重复项按钮,得到每项的唯一值
在“吃饭”右面的单元格输入公式“sumif()”(这里的括号只输入左边的就可以了)
用鼠标选道中原来的数据(需要把所有的框柱),输入“,”点击“吃饭”,接着再输回入“,”框选金额,按“回车键”
选中刚刚算出的单元格,鼠标在单元格右下角变成实心的十字时,下拉,得到想要的求和
想要用这些数据的时候,复制,选择性粘贴答,点击值和数字格式,确定,就可以复制出来了,这些数据就可以随意操作了
你是07么 07的话框选时间,姓名两列 选择删除重复项
如果不想用公式的话copy,有的简单的方法,
先找出重复百项,删除,然后求和.
如何找出重复项:你说度的两列假设是A列和B列,找一空白列,里面的内容填 =A&B,第知四列都是填1,合并计算,如图,计算结果不是1的说道明是重复项,删掉就好。