如何用vba批量自动调整行高或列宽使得单元格的内容可以刚好完全显示？

在excel中可以通过先全选所有单元格，然后双击列标与列标之间的分隔线或者行高与行高之间的分隔线来达到自动调整所有行的行高或者所有列的列宽，使得单元格的内容可以刚好完全显示，如下图所示

在vba中可以使用Range对象的AutoFit方法实现上述操作一样的效果，代码如下：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.ActiveSheet
    With oWK
        .Rows.AutoFit
        .Columns.AutoFit
    End With
End Sub