[Alexej77]

Вместо этого

Код:

if A1=1 then A1*5 else  
if A1=2 then A1*10

и этого

Код:

=IF(A1=1;A1*5;IF(A1=2;A1*10;IF(A1=3;A1*15;A1*20)))

можно написать это

Код:

=A1*A1*5

Вместо этого

Код:

Select Case Cells(1, 1).Value    
Case 1: Cells (1, 2).Value = Cells(1, 1).Value * 5  
Case 2: Cells (1, 2).Value = Cells(1, 1).Value * 10  
Case 3: Cells (1, 2).Value = Cells(1, 1).Value * 15  
Case 4: Cells (1, 2).Value = Cells(1, 1).Value * 20  
...  
Case 2000000: Cells (1, 2).Value = Cells(1, 1).Value * 10000000  
...    
End Select

можно написать это

Код:

Cells (1, 2).Value = Cells(1, 1).Value * Cells(1, 1).Value * 5