In realtà, ho avuto lo stesso problema in passato. Quello che funziona meglio per me è il seguente codice VBA. Ho trovato la relazione lineare solo per tentativi.
Il codice funziona per singole celle, ma anche per una selezione. In quest'ultimo caso, i riquadri si basano sulla larghezza o altezza totale della selezione.
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
È possibile inserire queste macro in un modulo e assegnare loro dei pulsanti nella barra degli strumenti ad accesso rapido
Si noti che i riquadri scompaiono (per effetto di una variazione della larghezza della colonna) quando si cambia il tipo o la dimensione del carattere. Ciò è dovuto al modo in cui Excel calcola la larghezza della colonna. Vedere: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel