如何在 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. 如果你想从第二行 / 列开始更改行高或列宽，只需从第二行 / 列选择数据范围即可。
相关文章：
最佳Office办公效率工具
| 🤖 | Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数…… |
| 热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入…… | |
| 高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表…… | |
| 列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列…… | |
| 特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）…… | |
| 15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| …… |
通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……
Office Tab为Office带来多标签界面，让您的工作更加轻松
- 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
- 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
- 可提升50%的工作效率，每天为您减少数百次鼠标点击！
所有Kutools加载项，一键安装
Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。
- 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
- 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
- 协同更高效——提升Office应用间的整体工作效率
- 30天全功能试用——无需注册，无需信用卡
- 超高性价比——比单独购买更实惠