如何在 Excel 中交替更改行高 / 列宽？

假设你有一个大型工作表，其中有多列或多行需要交替调整其宽度或高度。如果只有少量的列或行，你可以手动逐个更改行高或列宽。但是，如何在 Excel 中一次性更改多行的高度或多列的宽度呢？

使用筛选功能更改每隔一行的行高

使用 VBA 代码更改每隔一行的行高 / 列宽

使用 Kutools for Excel 更改每隔一行的行高 / 列宽

使用筛选功能更改每隔一行的行高

通过使用筛选功能，你需要首先创建一个辅助列，然后应用筛选功能来筛选出所需的行，并一次性调整所有筛选后的行高。请按照以下步骤操作：

1. 在数据旁边的一个空白单元格中，请分别在第一行和第二行输入数字 0 和 1，然后选择它们，并将填充柄拖动到要调整行高的范围单元格上，并从填充柄中检查“复制单元格”，结果如下截图所示：

2然后选择辅助列，并点击 数据 > 筛选，然后点击 按钮并从下拉列表中选择 0 或 1，在这个例子中，我将选择 0，见截图：

3. 点击确定后，包含数字 0 的所有行都被筛选出来了。然后选择这些筛选后的行，并点击 开始 > 格式 > 行高，见截图：

4. 在“行高”对话框中，请输入你想要的行高，见截图：

5. 然后点击确定关闭此对话框，所选的筛选后的行高已调整完毕。最后，点击数据 > 筛选取消筛选功能，你的行高已经交替更改了。见截图：

注意：

1. 你可以从第一行开始交替更改行高。

2. 此方法不适用于更改列宽。

3. 完成该过程后，可以根据需要删除辅助列。

使用 VBA 代码更改每隔一行的行高 / 列宽

如果你需要同时更改行高和列宽，以下 VBA 代码可以帮到你。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，并将以下代码粘贴到 模块窗口中。

VBA 代码：更改工作表中的每隔一行的行高

Sub RowHeight()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Row height", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Rows.Count Step 2
    WorkRng.Rows(i).RowHeight = xInput
Next
End Sub

3. 然后按 F5 键执行此代码，会弹出一个提示框提醒你选择要调整行高的范围，见截图：

4. 然后点击确定，另一个提示框会弹出让你输入所需的行高，见截图：

5. 然后点击 确定，所选范围的行高已从第一行开始交替更改。见截图：

注意：

1. 如果你想调整每隔一列的列宽，请使用以下 VBA 代码：

VBA 代码：更改工作表中的每隔一列的列宽

Sub CloumnWidth()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Cloumn width", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Columns.Count Step 2
    WorkRng.Columns(i).ColumnWidth = xInput
Next
End Sub

2. 如果你想从第二行 / 列开始更改行高或列宽，只需从第二行 / 列选择数据范围即可。

使用 Kutools for Excel 更改每隔一行的行高 / 列宽

如果你安装了 Kutools for Excel，它的“选择间隔行和列”工具也可以帮助你先选择每隔一行或列，然后同时更改行高和列宽。

Kutools for Excel 包含 300 多种便捷的 Excel 工具。免费试用 30 天无限制。立即获取。

1. 选择要使用的数据范围。

2. 转到点击 Kutools > 选择 > 选择间隔行和列，见截图：

3. 在“ 选择间隔行和列”对话框中，根据需要勾选“行”或“ 列”选项，并在“选项”部分中输入“ 间隔”和“ 列”或“行”的数量，在本例中，我将选择列，见截图：

4. 然后点击确定，每隔一列已在该区域被选中，见截图：

5. 然后点击 开始 > 格式 > 列宽，并在“ 列宽”对话框中输入你想要的列宽数值，见截图：

6. 然后点击确定，列宽已从第一列开始交替更改。

注意：

1. 要选择每隔一行，请在第 3 步的选择间隔行和列对话框中勾选“行”。

2. 如果你想从第二行 / 列开始更改行高或列宽，只需从第二行 / 列选择数据范围即可。

相关文章：

如何在 Excel 中为每隔一行或交替行设置底纹？

如何快速删除 Excel 中的每隔一行？