
在b2单元格输入公式=if(a2=a1,1,""),下拉,显示1的就是重复的
我是这样做的:
1,复制a列在d列粘贴,再使用菜单工具删除d列重复值。
2,在e列e1输入“数量”,在e2输入公式=SUMIF(A:A,$D2,B:B) ,下拉填充即可。
3,建立数据透视表也很简单,建立数据透视表后,把“代号”拖入行标签,把“数量”拖入数值栏即可。
1、新建一个文件夹
2、将要合并的表格放到里面
4、新建一个表格
5、用excel打开,右击Sheet1,选择查看代码
将下列代码复制到文本框中:
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
点击运行,一段时间(取决于表格的大小和多少)后,合并完成了
举例说明。
例如有表格如图:
现要求统计业务代表的销售合计。
第一步:在A21:A23输入业务代表A,B,C.如图:
第二步:在B21输入公式:=SUMIF(C$2:C$19,A21,D$2:D$19)
第三步:将B21的公式拖动至B23,结果如图:
展开全部
把cd两列数据剪切到ab两列下面。
按a列排序
c1=if(a1=a2,b2,""),下拖复制公式
选a列,高级筛选,选择不重复的记录。