Excel 比较两个工作表中的数据

Question

我需要比较两个定价表。有 4 列。部件号、描述、折扣百分比和价格。

我需要将旧表与新表进行比较，以查找任何定价和百分比更新。

由于零件号列表可以将矿石从一张纸添加到另一张纸上，因此无法按行进行比较，因此需要执行类似操作。

查看工作表一中的第一个部件号。（旧价目表）

在第二张工作表中找到相同的部件号。（新价目表）

比较百分比和价格，如果不同，则在第二张工作表中突出显示。

Answer 1

将两个 Excel 工作表导出为 CSV 格式
使用文件比较工具比较文本差异

我

的方法（我经常使用）是将两个工作表导出为 CSV 格式并比较两个文本文件。因此，我编写了这两个文件：

xls2Csv.vbs

'Script for conversion of XLS-/XLSX-Files to CSV-Format
'Michael Hutter / April 2016
if WScript.Arguments.Count < 1 Then
    WScript.Echo "There has to be at least one parameter!" & vbCrLf & _
                 "Syntax:" & vbCrLf & _
                 "  Xls2Csv.vbs SourceFile.xls DestFile.xlsn" & vbCrLf & _
                 "  Xls2Csv.vbs SourceFile.xls (a file called SourceDate.xls.csv will be written)"
    Wscript.Quit
End If
csv_format = 6
Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
if WScript.Arguments.Count = 1 then
  dest_file = src_file & ".csv"
else
  dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))
end if
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)
oBook.SaveAs dest_file, csv_format
oBook.Close False
oExcel.Quit

xls2Csv.bat：（你可能不需要它）;-）

start %cd%Xls2Csv.vbs %1 %2 %3

如果您已安装 Git，您还可以使用以下批处理文件通过 Excel 内部比较功能或自动 CSV 导出（使用上面的两个文件）比较两个 xls 文件。

DiffScript_xls.bat

@echo off
if X%1==X goto Syntax
goto SyntaxOk
:Syntax
echo This script either compares two xls-/xlsx-files with the Excel-internal compare function
echo or by exporting the sheet content to CSV format and comparing the text files.
echo Written by Michael Hutter in April 2016
echo.
echo Syntax:
echo %0 File1.xls File2.xls
pause
goto Ende
:SyntaxOk
set Datei=%0
set Rcksprung=Pos0
goto TeileDateipfadAuf
:Pos0
rem Pfad ermitteln, in dem die Batch-Datei liegt...
set WorkPfad=%LAUFWERK%%PFAD%
rem Leider liegt die Batch-Datei nicht am Urpsrungsort, da durch die Compilierung zur EXE während der Laufzeit ein Entpacken in einen anderen Ordner erfolgt :-(
set WorkPfad=C:ToolsBatchDiff-Scripts
set base=%1
set mine=%2
echo Compared are the following files:
echo   Base-File=%base%
echo   Mine-File=%mine%
echo.
echo Do you want to compare by [E]xcel or by [C]sv-Format?
C:WindowsSystem32choice /C ec /T 2 /D c
if errorlevel 2 goto CsvVergleich
if errorlevel 1 goto ExcelVergleich
:ExcelVergleich
echo Comparing by Excel...
rem Datei1 vorbereiten
set Datei=%base%
set Rcksprung=PosExcel1
goto TeileDateipfadAuf
:PosExcel1
echo Bei PosExcel1
echo ###
echo LAUFWERK=%LAUFWERK%
echo PFAD=%PFAD%
echo DATEI=%DATEI%
echo ERWEITERUNG=%ERWEITERUNG%
echo ###
ren "%LAUFWERK%%PFAD%%DATEI%%ERWEITERUNG%" "%DATEI%(base)%ERWEITERUNG%"
wscript.exe "C:Program FilesTortoiseGitDiff-Scriptsdiff-xls.js" "%LAUFWERK%%PFAD%%DATEI%(base)%ERWEITERUNG%" %mine% //E:javascript
goto Ende
:CsvVergleich
echo Comparing by CSV...
set Datei=%1
set Rcksprung=Pos1
goto TeileDateipfadAuf
:Pos1
echo Bei Pos1
echo ###
echo LAUFWERK=%LAUFWERK%
echo PFAD=%PFAD%
echo DATEI=%DATEI%
echo ERWEITERUNG=%ERWEITERUNG%
echo ###
set Datei1=%DATEI%%ERWEITERUNG%
if not exist %TEMP%CSV1NUL md %TEMP%CSV1
if exist "%TEMP%CSV1%Datei1%.csv" del "%TEMP%CSV1%Datei1%.csv"
if exist "%TEMP%CSV1%Datei1%.csv" echo Can't delete File1: "%TEMP%CSV1%Datei1%.csv"
copy "%LAUFWERK%%PFAD%%DATEI%%ERWEITERUNG%" "%TEMP%CSV1"
echo Converting File1 to CSV-Format: "%TEMP%CSV1%Datei1%"
%WorkPfad%Xls2Csv.vbs "%TEMP%CSV1%Datei1%"
rem Prepare File2
set Datei=%mine%
echo Datei=%Datei%
set Rcksprung=Pos2
goto TeileDateipfadAuf
:Pos2
echo Bei Pos2
echo ####
echo LAUFWERK=%LAUFWERK%
echo PFAD=%PFAD%
echo DATEI=%DATEI%
echo ERWEITERUNG=%ERWEITERUNG%
echo ####
set Datei2=%DATEI%%ERWEITERUNG%
if not exist %TEMP%CSV2NUL md %TEMP%CSV2
if exist "%TEMP%CSV2%Datei1%.csv" del "%TEMP%CSV2%Datei1%.csv"
if exist "%TEMP%CSV2%Datei1%.csv" echo Can't delete file: "%TEMP%CSV2%Datei1%.csv"
copy %mine% "%TEMP%CSV2"
echo Converting File2 to CSV-Format: "%TEMP%CSV2%Datei2%"
%WorkPfad%Xls2Csv.vbs "%TEMP%CSV2%Datei2%"
"C:Program FilesTortoiseGitbinTortoiseGitMerge.exe" "%TEMP%CSV1%Datei1%.csv" "%TEMP%CSV2%Datei2%.csv"
goto Ende
:TeileDateipfadAuf
for /f "delims= tokens=1,2" %%i in ("%Datei%") do (
set "LAUFWERK=%%~di"
set "PFAD=%%~pi"
set "DATEI=%%~ni"
set "ERWEITERUNG=%%~xi"
)
goto %Rcksprung%
:Ende

Answer 2

我发现自己经常做类似的事情。 我发现最好的方法是创建第三张纸，它只会显示差异。

=IF(Sheet2!A1 =VLOOKUP(Sheet2!$A1,Sheet1!$A:A,COLUMN(Sheet1!A1),FALSE),"",Sheet2!A1 & " / " & VLOOKUP(Sheet2!$A1,Sheet1!$A:A,COLUMN(Sheet1!A1),FALSE))

如果您将其放在新工作表的单元格 a1 中（根据需要替换工作表名称），然后将其拖到所有列中，然后向下拖动行，它将显示不同的值，仅此而已。

然后，您可以应用滤镜以使其更明显。

这假定您的部件号列是 A 列，并且在每个列表中仅出现一次。