目标:
-
搜索并比较两个字段E列(表2)到E列(表1)将表2中的重复值返回到表3
-
显示和突出显示工作表1和2上的重复值突出显示
-
从工作表2复制重复条目,然后添加到工作表3
如果E列(表2)= E列(表1),则从(表2)复制行并添加到表3
我试图比较工作簿中的两个excel表 . 我想在工作表2和1之间找到重复的值,并在两个工作表上突出显示这些值 . 我知道这是一个匹配或vlookup函数,但添加的图层是我想将这些值仅从第2页复制到第3页进行视觉比较 . 我试图创建一个宏,但这没有帮助,我正在尝试编辑它;
Sub rowContent()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim i As Long, j As Long
Dim isMatch As Boolean
Dim newSheetPos As Integer
Set ws1 = ActiveWorkbook.Sheets("Sheet1")
Set ws2 = ActiveWorkbook.Sheets("Sheet2")
'Initial position of first element in sheet2
newSheetPos = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row
For i = 1 To ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
isMatch = False
For j = 1 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row
If ws1.Cells(i, 1).Value = ws1.Cells(j, 2).Value Then
ws1.Cells(j, 2).EntireRow.Copy ws2.Cells(newSheetPos, 1)
isMatch = True
newSheetPos = newSheetPos + 1
End If
Next j
If isMatch = False Then newSheetPos = newSheetPos + 1
Next i
End Sub
为我的情况工作 . 任何帮助将不胜感激,因为我不是Excel大师 .
1 回答
你可以试试这样的......
上面的代码假定您在工作簿中有三张Sheet1,Sheet2和Sheet3 .
代码将删除Sheet1和Sheet2上任何现有的单元格内部颜色,然后突出显示红色重复的行 .
如果您已对这些工作表应用了一些颜色格式,则最好使用条件格式设置来突出显示具有重复项的行,而不是通过VBA代码对其进行着色 .