excel - 触发 Cells.Select 属性时停止工作表跳转到页面顶部

Question

这是默认 本工作手册 代码:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    FixWidthHeight
End Sub

这是我的 固定宽度高度 模块:

Sub FixWidthHeight()
    Cells.Select
    Selection.Columns.AutoFit
    Selection.Rows.AutoFit
    Application.Goto ActiveCell.EntireRow, True
End Sub

我希望我的代码按照这个特定的顺序做什么:

细胞。选择 - 选择整个工作表中的所有单元格

Selection.Columns.AutoFit - 自动调整所有列宽

Selection.Rows.AutoFit - 自动调整所有行高

Application.Goto ActiveCell.EntireRow, True - 将最后更新的行滚动到工作表的顶部

我对这段代码的问题是它不会触发最后一个属性 Application.Goto ActiveCell.EntireRow, True 因为 细胞。选择 属性阻止它发射。我测试了代码，发现 细胞。选择 成为罪魁祸首。当 细胞。选择 属性被触发，它会自动跳转到 工作表顶部的第一行 而不是 最后一个事件/更新的行 .好像 细胞。选择 取消 Application.Goto ActiveCell.EntireRow, True 这不是我想要的。所以我想知道是否有人可以帮助我修复此代码以获得指定的我想要的结果。谢谢

Answer 1

您可以调用AutoFit在 UsedRange.Columns和 UsedRange.Rows和 avoid Select ing首先。

With ActiveSheet.UsedRange
    .Columns.AutoFit
    .Rows.AutoFit
End With

然后 ActiveCell保持不变， Application.Goto ActiveCell.EntireRow, True将按需要工作。