如何在 Excel 中交替調整行高與列寬？

作者Xiaoyang修改日期2024-07-31

假設您有一個大型工作表，其中包含多個欄位或列，需要交替調整其寬度或高度。若欄或列的數量不多，您可以手動逐一調整行高或列寬；但若需一次調整多個行高或列寬，該怎麼辦？

使用篩選功能變更每隔一列的行高

使用 VBA 程式碼變更每隔一行高／列寬

使用 Kutools for Excel 變更每隔一行高／列寬

使用篩選功能變更每隔一行高

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

透過篩選功能，您可先建立一個輔助欄位，再套用篩選以顯示所需資料列，並一次調整所有篩選結果的行高。請依下列步驟操作：

1. 在資料旁的空白儲存格中，於第一列和第二列分別輸入數字 0 與 1，接著選取這兩個儲存格，並向下拖曳填滿控點至您要調整行高的範圍。拖曳時，請確認複製儲存格是否已從填滿控點顯示出來，結果將如以下截圖所示：

在欄中手動輸入 0 和 1 的螢幕截圖

2. 接著選取輔助欄，點擊資料＞篩選，然後點擊按鈕，並從下拉清單中選擇 0 或 1. 本例中選擇 0，請參閱截圖：

篩選所有值為 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 鍵執行此程式碼，系統將彈出提示方塊，提醒您選取要調整行高的範圍，請參閱截圖：

執行 VBA 程式碼後選取範圍的螢幕截圖

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. 在選擇間隔行/列對話方塊中，於「選取」區段勾選列或欄（依您的需求），然後在「選項」區段的選取間隔欄或列數值欄位中輸入數字。本例中，我將選擇欄，請參閱截圖：

使用 Kutools for Excel 調整每隔一列高度的螢幕截圖

4. 接著點擊確定，區段中將每隔一欄被選取，請參閱截圖：

選取每隔一欄的螢幕截圖

5. 接著點擊開始＞格式＞列寬，並在列寬對話方塊中輸入您想要的數值，請參閱截圖：

6. 接著點擊確定，列寬將從第一欄開始自動交替調整。

新欄寬的結果螢幕截圖

注意事項：

1. 若要選取每隔一列，請在步驟 3 的列選項中，勾選選擇間隔行/列對話方塊中的「列」。

2. 若您希望從第二列／欄開始調整行高或列寬，只需選取從第二列／欄起始的數據區域即可。

相關文章：

如何在 Excel 中為每隔一列（或交替列）添加底色？

如何快速刪除 Excel 中每隔一列？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多