比较两个excel工作簿中的sheet1内容，不一样用颜色字体标记

yanfeiliuhen1 · 发表于 2015-12-15 13:49

本帖最后由 yanfeiliuhen1 于 2015-12-15 17:49 编辑

哈喽，
大家好！
附件中的截图是：3张表分别处于3个excel工作簿中，如截图所示
附件中额截图说明再补充一点，1表和2表文件大小变化也要标记颜色（用红色表示）

谢谢大家帮忙解决~~~

liulang0808 · 发表于 2015-12-15 16:27

建议楼主上传案附件，在附件中说明需求

bajifeng · 发表于 2015-12-15 16:48

本帖最后由 bajifeng 于 2015-12-15 16:50 编辑

看到楼主的PM消息了，楼主，怎么没有看到附件啊

yanfeiliuhen1 · 发表于 2015-12-15 17:50

liulang0808 发表于 2015-12-15 16:27
建议楼主上传案附件，在附件中说明需求

你好，excel附件已上传，谢谢帮忙解决哈~~~

yanfeiliuhen1 · 发表于 2015-12-15 17:50

bajifeng 发表于 2015-12-15 16:48
看到楼主的PM消息了，楼主，怎么没有看到附件啊

你好，excel附件已上传，谢谢帮忙解决哈~~~

bajifeng · 发表于 2015-12-15 18:39

yanfeiliuhen1 发表于 2015-12-15 17:50
你好，excel附件已上传，谢谢帮忙解决哈~~~

恩，好的，现在就去写下代码。

bajifeng · 发表于 2015-12-15 18:42

Sub 新旧比较() 'bajifeng
ofn = Array("表1.xlsx", "表2.xlsx")
Application.DisplayAlerts = False
Workbooks.Open ThisWorkbook.Path & "" & ofn(0)
arr = ActiveWorkbook.ActiveSheet.UsedRange
ActiveWorkbook.Close
Workbooks.Open ThisWorkbook.Path & "" & ofn(1)
brr = ActiveWorkbook.ActiveSheet.UsedRange
crr = ActiveWorkbook.ActiveSheet.UsedRange
ActiveWorkbook.Close
[a1].Resize(UBound(brr), 7) = crr
For i = 2 To UBound(brr)
For j = 1 To 7
If arr(i, j) <> "" And brr(i, j) <> "" And arr(i, j) <> brr(i, j) Then Cells(i, j).Font.ColorIndex = 3
If arr(i, j) = "" And brr(i, j) <> "" Then Cells(i, j).Font.ColorIndex = 4
If arr(i, j) <> "" And brr(i, j) = "" Then
Cells(i, j).Value = arr(i, j)
Cells(i, j).Font.ColorIndex = 15
End If
Next
Next
Application.DisplayAlerts = True
End Sub

复制代码

bajifeng · 发表于 2015-12-15 18:44

>>>>>>>>>>>>>>>>

bajifeng · 发表于 2015-12-15 18:44

yanfeiliuhen1 发表于 2015-12-15 17:50
你好，excel附件已上传，谢谢帮忙解决哈~~~

我没测试，你看看是否符合您的要求。
有问题，联系。

yanfeiliuhen1 · 发表于 2015-12-15 21:18

bajifeng 发表于 2015-12-15 18:44
我没测试，你看看是否符合您的要求。
有问题，联系。

生成的结果不正确，，正确结果你可对照我给的《结果.xlsx》中
第一级到第四级之间的每行只能有一个目录或文件，你生成的结果，每行超过1个了，

麻烦再帮我看下哈~~~
太感谢了~~~~

		自动登录	找回密码
密码			免费注册

[求助] 比较两个excel工作簿中的sheet1内容，不一样用颜色字体标记