怎样使用VBA检查重复数据的重复次数，随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA检查重复数据的重复次数？
VBA检查重复数据并做出执行 Sub 宏1()Set db=CreateObject(\"Scripting.Dictionary\")for i=2 to ActiveSheet.UsedRange.Rows.CountIf idb(Trim(Cells(i，3))=TrueElseIf db(Trim(Cells(i，3))ThenMsgBox\"第\"&i&\"行数据【\"&Cells(i，3)&\"】重复！ElseWith Range(Cells(i，1)，Cells(i，6)).BordersLineStyle=xlContinuousWeight=xlMediumEnd WithEnd IfEnd Ifnext iEnd Sub
如何用vba查找某区域内相同重复数据，并统计数量？ Sub test()Dim arr，c，a&arr=Intersect(Range(\"a：d\")，ActiveSheet.UsedRange)Set Zd=CreateObject(\"scripting.dictionary\")For Each c In arrIf c<；>；\"\"Then a=Zd(c)：Zd(c)=a+1Next[f2].Resize(Zd.Count)=Application.Transpose(Zd.keys)[g2].Resize(Zd.Count)=Application.Transpose(Zd.items)End Sub
[求助] VBA提示重复数据并统计对应项 Sub 统计选定单元格()If ActiveCell.Count>；1 ThenMsgBox\"选择了过多的单元格，请重新选择Exit SubEnd IfIf ActiveCell.Column<；>；1 ThenMsgBox\"选择的单元格不是正确的列，请重新选择Exit SubEnd IfIf ActiveCell=\"\"ThenMsgBox\"选择的单元格是空值，请重新选择Exit SubEnd IfSet dic=CreateObject(\"Scripting.Dictionary\")For Each Rng In Sheets(ActiveCell.Worksheet.Name).Columns(ActiveCell.Column).CellsIf Rng=\"\"Then Exit Fordic(Rng.Value)=dic(Rng.Value)&Rng.Offset(0，1).ValueNextSet dic1=CreateObject(\"Scripting.Dictionary\")mystr=dic(ActiveCell.Value)For i=1 To Len(mystr)tstr=Mid(mystr，i，1)dic1(tstr)=dic1(tstr)+1Nexta=dic1.keysb=dic1.itemsFor ii=0 To UBound(a)bgstr=bgstr&vbCrLf&a(ii)&\"有：\"&b(ii)&\"个.NextMsgBox ActiveCell.Value&\"的数量有：\"&Len(mystr)&\"个.\"&vbCrLf&\"其中：\"&bgstrEnd Sub
excel 工作簿利用VBA查找重复数据并显示 Sub macro()Dim i As IntegerDim j As IntegerDim k As IntegerDim Sheet1 As WorksheetDim Sheet2 As WorksheetDim Sheet3 As Worksheetk=1Sheet1=ThisWorkbook.Sheets(\"sheet1\")Sheet2=ThisWorkbook.Sheets(\"sheet2\")Sheet3=ThisWorkbook.Sheets(\"sheet3\")For i=2 To 10000 Step 1If Sheet1.Cells(i，2).Value<；>；\"\"ThenFor j=1 To 5000 Step 1If Sheet1.Cells(i，2).Value=Sheet2.Cells(j，2).Value ThenSheet3.Cells(k，1).Value=Sheet1.Cells(i，2).Valuek=k+1End IfNext jEnd IfNext iEnd Sub该数据其他相关信息在同一行的话，在k=k+1前加 Sheet3.Cells(k，2（或3、4.）32313133353236313431303231363533e78988e69d8331333262373962).Value=Sheet1.Cells(i，3（相关信息在的行数）).Value
求教VBA如何在重复数据下同样写入数据？ Private Sub CommandButton1_Click()Dim i As IntegerDim j As IntegerDim r As IntegerDim p As IntegerDim zl，kd，py，jg，aj，bj，k As IntegerDim cost As DoubleDim s As StringFor m=2 To 200Sheet7.Cells.ClearContentsCall getdata.getdata(Sheet10.Cells(m，1)，Sheet10.Cells(m，2)，Sheet10.Cells(2，19)，Sheet10.Cells(3，19)，Sheet7)Sheet7.Cells(1，1)=\"起始时间Sheet7.Cells(1，2)=Format(Sheet10.Cells(2，19)，\"yyyy-m-dd\")Sheet7.Cells(1，5)=\"截止时间Sheet7.Cells(1，6)=Format(Sheet10.Cells(3，19)，\"yyyy-m-dd\")s=\"For n=3 To 102If Sheet8.Cells(n，7)=\"未订\"Thens=s+Sheet8.Cells(n，2)+\"End IfNextSheet2.Cells(1，15)=sT=Sheet10.Range(\"d\"&Rows.Count).End(xlUp).RowSheet10.Range(\"d\"&T+1)=Sheet2.Range(\"B11\")Sheet10.Range(\"e\"&T+1)=Sheet2.Range(\"C11\")Sheet10.Range(\"f\"&T+1)=Sheet2.Range(\"D11\")Sheet10.Range(\"g\"&T+1)=Sheet2.Range(\"E11\")Sheet10.Range(\"l\"&T+1)=Sheet2.Range(\"O1\")NextEnd Sub
用VBA统计重复数据，在一个多行多列的区域中，有大量的数据，其中许多是重复的。如果想显示出各数据的重复出现次数，是一件比较麻烦的事情，如果数据都分布在同一列中还好办。
