VBで配列の差分を取りたいのですが

質問

VB2005を使用しています。
エクセルに2つのシートには更新前と更新後のデータがあって、
それの差分を取るために一度2次元配列に確保してから処理を行い
たいのですが、配列を入れ子にして順にループ、比較させると時間がかかりすぎてしまいます。
どうしたらよいのでしょうか？

回答No.1

fumufumu_2006

vbは、特に最近の.netのvbは知らないのですが・・・。
vba風で良ければこんなのはどうでしょう。

内容が詳しくわからないのですが、
>エクセルに2つのシートには更新前と更新後のデータがあって、
とあるので、同じブック内の２つのシートだとして、比較結果のシートを作ります。
2つのシートの同じ位置のデータを比較するとします。
book1.xlsのsheet1とsheet2の(1,1)-(10,10)の範囲を比較するとします。
vbで、formにButton1を配置します。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'bookを開く
Dim wb As Object
wb = CreateObject("Excel.Application").Workbooks.Open(Filename:="c:\book1.xls")
'新しいシートを作って差分の計算式を代入（ここでは(1,1)-(10,10)の範囲
Dim ws As Object
ws = wb.Worksheets.Add()
ws.Range(ws.Cells(1, 1), ws.Cells(10, 10)).FormulaR1C1 = "=Sheet1!RC-Sheet2!RC"

'各種操作
'配列に入れても良いが、そのままws.Cells(row, col).valueでアクセスできる
'例えば結果表示
MessageBox.Show(ws.Cells(1, 1).value)

'後始末
ws = Nothing
wb.Close(savechanges:=False)
wb = Nothing
End Sub

お礼

回答していただきありがとうございました。
私の質問の内容がちょっとわかりずからったですね。
もうしわけございません。