Автор: Fedo Max. Дорогие други, подскажите, как оптимизировать код? IF ...... THEN Select Case Sheets("out").Cells(i, 3).Value                 Case 1                     lvl1 = Sheets("out").Cells(i, 3).Value                 Case 2                     lvl2 = Sheets("out").Cells(i, 3).Value                 Case 3                     lvl3 = Sheets("out").Cells(i, 3).Value                 Case 4                     lvl4 = Sheets("out"). ...