|
▼かみちゃん さん:
アドバイスありがとうございます。
出題されたCSVファイルを最初に開いた時には「######」となっていて
書式設定を数値に直して保存し、再度開くと、「111111111」⇒「1.11E+08」
となっていました。先の返信で説明不足になってすいません。
CSVファイルの比較プログラム作成の課題が出され、Sheet1とSheet2を比較し 差分をSheet3に表示させる
Sub テスト()
Const MAXX = 12
Const MAXY = 63
Dim Sheet1(MAXX) As String
Dim Sheet2(MAXX) As String
Sheets("Sheet3").Select
Cells.Select
Selection.Clear
Range("A1").Select
A = 1
For Y = 1 To MAXY
B = 1
For X = 1 To MAXX
Sheet1(X) = Sheets("Sheet1").Cells(Y, X).Value
Sheet2(X) = Sheets("Sheet2").Cells(Y, X).Value
If Sheet1(X) <> Sheet2(X) Then B = 0
Next
If B = 0 Then
MsgBox "データ不一致"
For X = 1 To MAXX
Cells(Y, X).Value = Sheet1(X)
Next
Y = Y + 1
End If
Next
MsgBox "終了確認"
End Sub
上記のプログラムを作ったのですが、ファイル名を指定すると2つのファイルを
比較する自動化されたプログラムに修正するように指示されたのですが、
作成方法が皆目検討がつかない状況です。
よろしければアドバイスお願いします。
|
|