求助，EXcel删选的问题？

A5682981

加图标10.8-10.8.zip (9.83 KB, 下载次数: 6)

2014-10-11 12:24 上传

点击文件名下载附件
附件

见附件，我想把“系统导出表“里面有，但是”已上报“里面没有的内容全部显示在”sheet1“中，这个用VBA语句怎么实现，谁能给个意见并附上VBA编程吗？（还有个要求，就是”已上报“、”系统导出表“里面的内容可能会随着时间的变化而增多，所以最好是将两个表全选）

A5682981

没人知道吗

lisai66111

Sub 练习()
Dim i, j, n As Integer
n = 1
For j = 2 To Worksheets("系统导出表").Range("a65536").End(xlUp).Row
For i = 2 To Worksheets("已上报").Range("a65536").End(xlUp).Row

If Worksheets("已上报").Range("a" & i) = Worksheets("系统导出表").Range("a" & j) Then
Worksheets("系统导出表").Range("a" & j).Font.ColorIndex = 3
End If
Next
Next
For j = 2 To Worksheets("系统导出表").Range("a65536").End(xlUp).Row
If Worksheets("系统导出表").Range("a" & j).Font.ColorIndex <> 3 Then
Worksheets("sheet1").Range("a" & n) = Worksheets("系统导出表").Range("a" & j)
Worksheets("sheet1").Range("b" & n) = Worksheets("系统导出表").Range("b" & j)
n = n + 1
End If

Next
End Sub
找654003768