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