2

最初に、2 つの Excel ファイルを比較する VBA スクリプトを作成しました。次に、この質問で述べたように、バリアントを使用して最適化しました。しかし、後で VBScript に変更しました。ここで、上記の方法は機能しないようです。プロセスをスピードアップするための他の良い方法はありますか? 特に大きなファイルの場合。

私のコアコードは次のとおりです:-

For Each cell In objxlWorksheet1.UsedRange
 If cell.Value <> objxlWorksheet2.Range(cell.Address).Value Then
  'fill the color in the cell if there is a mismatch and Increment the counter
  objxlWorksheet2.Range(cell.Address).Interior.ColorIndex = 3
  counter=counter+1
 End If
Next
4

1 に答える 1

1

何を比較するかにもよります。同様のデータ テーブルを含む 2 つのシートがある場合は、VBA コードの代わりに数式を使用する方が簡単です。新しいワークシートを作成し、次のように数式を入力するだけです:=Sheet1!A1=Sheet2!A1次に、Ctrl-Find を使用して検索できます。False

または、1 つのシートのデータを並べてコピーできる場合は、条件付き書式を使用して異なる値を強調表示できます。

于 2013-10-25T06:01:18.860 に答える