How to compare two worksheets in a workoo
比较两个Sheets的内容,这是很一个很常见的功能,在项目中遇到了这个需求,比较两个sheet,将这个区别明显高亮出来,特地将代码整理出来,方便交流使用。
这个方案还是有一些缺陷的,假设前提便是sheet里没有重复的值。稍后也会再来一篇博客, 根据一个sheet里的值修改另一个sheet里的对应值,这两篇在日常工作中还是很常用的。
这个处理思路是先在sheet2里遍历sheet1的值,不管是否存在都写到sheet3里,但sheet2不存在的值会高亮背景色为蓝色,接着在sheet3里查找sheet2的值,之所以在sheet3里查找,是因为,第一次操作后sheet3和sheet1的文本内容已经是一样的了,此时sheet2里存在sheet3里查找不到的值就会写在sheet3了。代码很粗糙,但功能已经完成了。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | Sub Button1_Click() Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Newsheet" CompareSheet1_2 Comparesheet2_3 End Sub ' compare sheet1 and sheet2 , the rows in sheet1 but not in sheet2 will be added into the newsheet and colored blue Sub CompareSheet1_2() Dim strRan As String RowCount1 = ActiveWorkbook.Worksheets( "Sheet1" ).UsedRange.Rows.Count RowCount2 = ActiveWorkbook.Worksheets( "Sheet2" ).UsedRange.Rows.Count For i = 1 To RowCount1 cellvalue1 = ActiveWorkbook.Worksheets( "sheet1" ).Cells(i, 2).Value For j = 1 To RowCount2 cellvalue2 = ActiveWorkbook.Worksheets( "Sheet2" ).Cells(j, 2).Value strRan = "A" & i & ":C" & i Sheets(3).Range( "A" & i & ":C" & i).Value = ActiveWorkbook.Worksheets( "Sheet1" ).Range(strRan).Value If cellvalue1 = cellvalue2 Then Sheets(3).Range( "A" & i & ":C" & i).Value = ActiveWorkbook.Worksheets( "Sheet1" ).Range(strRan).Value Sheets(3).Range( "A" & i & ":C" & i).Interior.ColorIndex = 0 Exit For Else Sheets(3).Range( "A" & i & ":C" & i).Interior.ColorIndex = 37 End If Next j Next i End Sub ' compare sheet2 and sheet3 , the rows in sheet2 but not in sheet1 will be added into the newsheet and colored yellow Sub Comparesheet2_3() Dim strRan As String RowCount2 = ActiveWorkbook.Worksheets( "Sheet2" ).UsedRange.Rows.Count rowcount3 = ActiveWorkbook.Sheets( "NewSheet" ).UsedRange.Rows.Count n = rowcount3 For i = 1 To RowCount2 cellvalue2 = ActiveWorkbook.Worksheets( "sheet2" ).Cells(i, 2).Value For j = 1 To rowcount3 cellvalue3 = ActiveWorkbook.Worksheets( "NewSheet" ).Cells(j, 2).Value If cellvalue2 = cellvalue3 Then flag = True Exit For Else flag = False End If Next j If flag = True Then Sheets(3).Range( "A" & n & ":C" & n).Interior.ColorIndex = 0 Else n = n + 1 strRan = "A" & i & ":C" & i Sheets(3).Range( "A" & n & ":C" & n).Interior.ColorIndex = 6 Sheets(3).Range( "A" & n & ":C" & n).Value = ActiveWorkbook.Worksheets( "sheet2" ).Range(strRan).Value Exit For End If Next i End Sub |
分类:
office_dev
, VBA
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· 用 C# 插值字符串处理器写一个 sscanf
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· DeepSeek 解答了困扰我五年的技术问题。时代确实变了!
· 本地部署DeepSeek后,没有好看的交互界面怎么行!
· 趁着过年的时候手搓了一个低代码框架
· 推荐一个DeepSeek 大模型的免费 API 项目!兼容OpenAI接口!