0
我有一个包含多个工作表的excel文件。 我需要比较两个工作表(1)TotalList和(2)cList超过25列,在这两个工作表栏中是相同的。如何比较不同工作表中的两列
在分栏列表的起始行是3 在TotalList的起始行是5
现在,我得比较来自CLIST对E &˚F列,TotalListē&˚F列,如果没有找到它,然后在TotalList表格末尾添加整行,并用黄色突出显示。
Public Function compare()
Dim LoopRang As Range
Dim FoundRang As Range
Dim ColNam
Dim TotRows As Long
LeaData = "Shhet2"
ConsolData = "Sheet1"
TotRows = Worksheets(LeaData).Range("D65536").End(xlUp).Row
TotRows1 = Worksheets(ConsolData).Range("D65536").End(xlUp).Row
'TotRows = ThisWorkbook.Sheets(LeaData).UsedRange.Rows.Count
ColNam = "$F$3:$F" & TotRows
ColNam1 = "$F$5:$F" & TotRows1
For Each LoopRang In Sheets(LeaData).Range(ColNam)
Set FoundRang = Sheets(ConsolData).Range(ColNam1).Find(LoopRang, lookat:=xlWhole)
For Each FoundRang In Sheets(ConsolData).Range(ColNam1)
If FoundRang & FoundRang.Offset(0, -1) <> LoopRang & LoopRang.Offset(0, -1) Then
TotRows = Worksheets(ConsolData).Range("D65536").End(xlUp).Row
ThisWorkbook.Worksheets(LeaData).Rows(LoopRang.Row).Copy ThisWorkbook.Worksheets(ConsolData).Rows(TotRows + 1)
ThisWorkbook.Worksheets(ConsolData).Rows(TotRows + 1).Interior.Color = vbYellow
GoTo NextLine
End If
Next FoundRang
NextLine:
Next LoopRang
End Function
请帮助VBA代码。 在此先感谢...
一个路径:http://superuser.com/a/496277/ 85273 – Brad
@OP:请告诉我们你到目前为止所做的事情。这不是免费的脚本服务,这是针对有编程问题的程序员,因为他们被卡住或想要改进脚本,这类事情。因此,请向我们发送您的脚本,并告诉我们您卡在哪里,我们将尽我们所能帮助。 –
更新了上面的代码,在上面的代码中,它正在复制已经在工作表中的数据。 – user1049518