'' ВЫПОЛНЕНИЕ ФИНАЛЬНОГО ОТВЕТА ws.Range(Cells(1, 1), Cells(m, m)).Select Selection.FormulaArray =...