Na verdade, já tive o mesmo problema no passado. O que funciona melhor para mim é o seguinte código VBA. Encontrei a relação linear apenas por tentativa e erro.
O código funciona para células únicas, mas também para uma selecção. Neste último caso, os quadrados são baseados na largura ou altura total da selecção.
Sub MakeCellSquareByColumn()
Selection.RowHeight = Selection.Width / Selection.Columns.Count
Selection.ColumnWidth = (((Selection.Width / Selection.Columns.Count) / 0.75 - 5) / 7)
End Sub
Sub MakeCellSquareByRow()
Selection.ColumnWidth = (((Selection.Height / Selection.Rows.Count) / 0.75 - 5) / 7)
Selection.RowHeight = Selection.Height / Selection.Rows.Count
End Sub
Pode colocar estas macro’s num Módulo e atribuir-lhes botões na barra de ferramentas de acesso rápido
Note que os quadrados desaparecem (por uma largura de coluna variável) quando se muda o tipo ou tamanho da fonte. Isto deve-se à forma como o Excel calcula a largura da coluna. Veja: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel