使用 VBA 代码来强制EXCEL最低行高

步骤 1：打开 VBA 编辑器

1. 打开 Excel，确保你想要操作的工作簿是打开的。
2. 按下 Alt + F11，这将打开 VBA 编辑器。

步骤 2：插入模块

1. 在 VBA 编辑器中，找到左侧的“项目资源管理器”窗口。如果没有看到这个窗口，可以通过点击菜单栏中的**“视图”** -> **“项目资源管理器”**来显示。
2. 找到你的工作簿，右键点击它，选择插入 -> 模块。这将在你的工作簿中插入一个新模块。

步骤 3：粘贴代码

在新模块窗口中，粘贴以下代码：

Sub SetMinimumRowHeight()

    Dim cell As Range

    Dim minHeight As Double

    minHeight = 20 ' 设置最小行高为20磅（可以根据需要调整）

    For Each cell In Selection.Rows

        If cell.RowHeight < minHeight Then

            cell.RowHeight = minHeight

        End If

    Next cell

    

End Sub

步骤 4：运行宏

1. 关闭 VBA 编辑器，返回到 Excel。
2. 选择你希望调整的行（可以通过点击行号来选择）。
3. 按下 Alt + F8，这将打开“宏”对话框。
4. 从列表中选择 SetMinimumRowHeight，然后点击运行。

示例说明

1. 设置最小行高：在代码中，minHeight = 20 表示设置的最小行高为 20 磅。你可以根据你的需要修改这个值。
2. 遍历选定的行：代码通过 For Each cell In Selection.Rows 遍历用户选择的所有行。
3. 检查并设置行高：如果某行的当前行高小于设置的最小值，则将其行高设置为最小值。
4. 提示信息：最后，代码会弹出一个消息框，告知用户已设置的最小行高。

注意事项

1. 在运行宏之前，确保你已经选择了需要调整的行。
2. 你可以随时重复运行这个宏，以确保行高保持在设定的最小值以上。
3. 如果你的 Excel 文件中有保护设置，确保允许宏执行。
4. 通过以上步骤，你可以使用 VBA 代码来强制设置 Excel 中的行高，确保达到你所需的效果。希望这对你有所帮助！如果你有其他问题，欢迎继续询问。