excel vba 选中行放大1.5倍

可以使用以下VBA代码来选中当前行并将其放大1.5倍：

Sub ZoomInSelectedRow()
    Dim selectedRow As Range
    Set selectedRow = Selection.EntireRow
    selectedRow.Select
    With ActiveWindow
        .Zoom = True
        .Zoom = 150
    End With
End Sub

这段代码将当前选定的行存储在一个名为`selectedRow`的变量中，然后选择整个行并将窗口缩放比例设置为150％（即放大1.5倍）。您可以将此代码复制并粘贴到VBA编辑器中，然后将其与Excel文件相关联的按钮或快捷键一起使用。