目标:
搜索并比较两个字段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大师 .