excel vba判断同行的内容是否重复 以A1：E4区域为例，代码如下：Sub tst()Dim i%，j%，k%For i=1 To 4For j=0 To 4For k=0 To 4If Cells(i，1).Offset(0，j).Value=Cells(i，1).Offset(0，k).Value And j<；>；k Then Cells(i，1).Interior.ColorIndex=i+10NextNextNextEnd Sub 或者下面代码也可以，Sub tst()Dim d As Object '定义变量Dim i%，j%For i=1 To[a65536].End(3).RowSet d=CreateObject(\"Scripting.Dictionary\")'创建数据字典For j=1 To Cells(i，256).End(xlToLeft).ColumnIf Cells(i，j)<；>；\"\"And WorksheetFunction.CountIf(Range(\"A\"&i&\"：IV\"&i)，Cells(i，j))>；1 And Not d.exists(Cells(i，j).Value)Thend.Add Cells(i，j).Value，\"End IfNext jRows(i).ClearContentsIf d.Count>；0 Then Cells(i，1).Resize(，d.Count)=d.keysSet d=NothingNext iEnd Sub
VBA，判断数据重复，指定数据计算递减 Sub abc()Dim aFor a=WorksheetFunction.CountA(Columns(1))To 2 Step-1If Cells(a，1)=Cells(a-1，1)Then Cells(a-1，3)=Cells(a，3)-Cells(a，4)NextEnd Sub
vba ，提取不重复值 后统计重复次数，并判断每个不重复值之间的重复次数是否相等 亲，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧空白处点击右键，“插入”，“模块”。右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。运行后，将新建一个工作簿，存放结果。Sub pc()Dim d，kSet d=CreateObject(\"Scripting.Dictionary\")Dim rg As Range，c，r，n As LongWorkbooks.AddActiveWorkbook.ActiveSheet.Range(\"C1：D1\").Value=Array(\"类型\"，\"颜色\")With ThisWorkbook.ActiveSheetFor c=3 To 4r=.Cells(Rows.Count，c).End(xlUp).RowFor Each rg In.Cells(4，c).Resize(r-3)If rg.Value<；>；\"\"Then d(rg.Value)=d(rg.Value)+1Nextr=ActiveWorkbook.ActiveSheet.Cells(Rows.Count，c).End(xlUp).Row：n=1For Each k In d.keysn=n+1ActiveWorkbook.ActiveSheet.Cells(n，c).Value=k&\"-\"&d(k)Nextd.RemoveAllNextEnd WithSet d=NothingEnd Sub
