4. В открывшемся Excel-файле создайте и выполните макрос :-
Sub CalcVal()
` CalcVal Macro
` Macro recorded 04.10.2004 by ARE
rowmax = 777 ` введите число, равное номеру последней строки в файле + 1
crow = 2
Sheets("Rates").Select
Do While crow <= rowmax
If Cells(crow, 3) <> "" Then
If Cells(crow, 5) <> "" Then
If Cells(crow, 3) > Cells(crow, 5) Then
Cells(crow, 3) = Val(Cells(crow, 3)) / Val(Cells(crow, 5))
Cells(crow, 5) = 1
Else
Cells(crow, 5) = Val(Cells(crow, 5)) / Val(Cells(crow, 3))
Cells(crow, 3) = 1
End If
End If
End If
Cells(crow, 3).Select
Selection.NumberFormat = "0.0000"
Cells(crow, 5).Select
Selection.NumberFormat = "0.0000"
crow = crow + 1
Loop
Cells(2, 1).Select
End Sub
он приведет кросс-курсы к 1. Сохраните Excel-файл.