т е одни значения заменить на этиже значения умноженные на коэффициенты.... только макросом

Ну тогда ВПРом в допстолбце распределите коэффициенты напротив нужных значений, затем скопировав их и спецвставкой вставляем в нужный столбец с пометкой параметра "умножить". После можно допстолбец с коэффициентами удалить за ненадобностью.

хм...я не гуру...но к вашему примеру макрос написать смог..  
 
Возможно он не оптимальный, и в нем много лишнего, но он работает:  
 
Option Explicit  
 
Sub Way()  
 
Dim rr1 As Range, rr2 As Range  
Dim cc1 As Range, cc2 As Range  
 
With ActiveSheet  
 
Set rr1 = .Range(Range("D1"), Range("D1").End(xlDown).Offset(0, 0))  
Set rr2 = .Range(Range("B6"), Range("B6").End(xlDown).Offset(0, 0))  
 
For Each cc1 In rr1  
   For Each cc2 In rr2  
       If cc2 = cc1 Then  
           cc2.Offset(0, 1) = cc2.Offset(0, 1) * cc1.Offset(0, 1)  
       End If  
   Next  
Next  
 
End With  
 
End Sub

{quote}{login=olgalxxx}{date=24.03.2011 12:17}{thema=}{post}У меня 84 столбца, на разных листах, в разной последовательности. {/post}{/quote}  
Вот это смущает. Для конкретного примера можно сделать. А если не видно реальной структуры, то неизвестно - где искать данные.

Вы писали, 84 столбца...это все, или столбцы все на одной странице и идут через равный промежуток дальше? высота столбцов такая как в этом файле? нужна более подробная информация, или файл, максимально приближенный к оригинальному...