excel vba 所有行高放大1.5倍

你可以使用以下代码将 Excel 工作表中的所有行高放大 1.5 倍：

Sub EnlargeRows()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 修改为你的工作表名字或索引号
    
    Dim lastRow As Long
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    
    Dim i As Long
    For i = 1 To lastRow
        ws.Rows(i).RowHeight = ws.Rows(i).RowHeight * 1.5
    Next i
End Sub

这段代码首先定义了一个工作表对象，然后确定了该工作表中最后一行的行号。接下来，它使用一个循环结构遍历所有行并将它们的行高放大 1.5 倍。如果你需要更改工作表，请修改代码中 `ws` 变量的赋值行。

相关问题

excel vba 选中行 行高放大1.5倍

你可以使用如下的 VBA 代码来实现选中行并将行高放大1.5倍：

Sub EnlargeRowHeight()
    '获取当前选中的行
    Dim selectedRows As Range
    Set selectedRows = Selection.Rows
    
    '将选中的行高放大1.5倍
    selectedRows.RowHeight = selectedRows.RowHeight * 1.5
End Sub

你可以将这段代码复制到 VBA 编辑器中，然后在 Excel 中打开开发者选项卡并运行该宏即可。当你选中一行并运行该宏后，该行的行高将会变为原来的1.5倍。

Excel VBA设置行高

好的，您想知道如何使用Excel VBA设置行高。以下是一些VBA代码可以用来设置行高：

Sub SetRowHeight()
    '设置第2行的行高为20
    Rows(2).RowHeight = 20
    
    '设置多行的行高为15
    Rows("3:5").RowHeight = 15
    
    '根据单元格的内容自动调整行高
    Rows(6).EntireRow.AutoFit
    
End Sub

您只需要将这些代码复制到Excel VBA编辑器中，并将其与所需的事件关联，即可设置行高。希望这可以帮助您完成您的任务！