结果：

Question

在 Microsoft Excel 中，

我想使前三行和前四列（左上角的 12 个单元格）的高度为正方形。如何才能做到这一点？

---

令人惊讶的是，Excel说：

Row height: 15
Column width: 8.43

所以，它们不在同一规模上。

如果将它们都设为 8.43，则会出现以下结果：

现在我该怎么办？

Answer 1

还有一个方法...将视图更改为页面布局。这会将网格比例更改为英寸（或系统默认单位），然后您可以将高度和宽度专门设置为相同的值（例如 0.25 英寸）。在我看来，页面布局是处理电子表格外观的最佳标准视图。

以下是两个视图的实际尺寸的示例：

此技术可用于创建特定大小的图表和表格，以便复制/粘贴到其他生产力产品（例如 Word、Powerpoint 或 Publisher）。它提供了一种简单的机制，用于发布大小和比例一致的图形。

Answer 2

选择全部（或您需要的行/列），然后拖动以调整为所需的大小。

1. 拖动列标题的边缘可调整列宽。此时会显示一个工具提示，其中包含准确的像素数。
2. 记住像素值！
3. 拖动行标题的边缘来调整行高，其操作方式相同。
4. 拖动至相同的像素值。

完毕！

Answer 3

Excel 的列宽以“普通”样式下单元格中可容纳的零 (0) 的数量来衡量。要转换为点（如何测量行高），请参阅

http://www.dailydoseofexcel.com/archives/2004/06/01/column-widths-in-points/

如果您不需要精确，只需目测即可。如果您确实需要比目测更接近，请从绘图工具栏上将一个正方形放在工作表上并调整其大小。如果您想要 10 x 10，请使用如下代码：

sheet1.Shapes(1).Height = 10
sheet1.Shapes(1).Width = 10
sheet1.Shapes(1).Top = sheet1.Shapes(1).TopLeftCell.Top
sheet1.Shapes(1).Left = sheet1.Shapes(1).TopLeftCell.Left

然后，您可以手动调整行和列的大小以适合正方形并读取高度和列宽。

Answer 4

以下代码对我有用

Sub Grid_Squares()
    With Cells(1, 1)
        Cells.RowHeight = .Width
        Cells.ColumnWidth = .ColumnWidth
    End With
End Sub

结果：