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

  

 

posted @   july2008hll  阅读(244)  评论(0编辑  收藏  举报
编辑推荐:
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· 用 C# 插值字符串处理器写一个 sscanf
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
阅读排行:
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· DeepSeek 解答了困扰我五年的技术问题。时代确实变了!
· 本地部署DeepSeek后,没有好看的交互界面怎么行!
· 趁着过年的时候手搓了一个低代码框架
· 推荐一个DeepSeek 大模型的免费 API 项目!兼容OpenAI接口!
点击右上角即可分享
微信分享提示