...
4. В открывшемся Excel-файле создайте и выполните макрос :-
<b>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</b>
он приведет кросс-курсы к 1. Сохраните Excel-файл.