如何在 Excel 中交替调整行高或列宽？
假设您有一个大型工作表，其中包含多列或多行，需要交替调整它们的宽度或高度。如果只有少数几列或几行，您可以手动逐一修改行高或列宽。但如何在 Excel 中一次性批量调整多个行高或列宽呢？
使用 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. 若要从第二行或第二列开始调整行高或列宽，只需选中从该行或该列起始的数据区域即可。
相关文章：
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱