メインコンテンツへスキップ

Excelで行の高さや列の幅を交互に変更するにはどうすればよいですか?

Author: Xiaoyang Last Modified: 2025-08-06

複数の列または行があり、その幅や高さを交互に調整する必要がある大きなワークシートを持っているとします。列や行が少ない場合は、手動で一つずつ行の高さや列の幅を変更できます。しかし、Excelで複数の行の高さや列の幅を一度に変更するにはどうすればよいでしょうか?

フィルター機能を使用して他のすべての行の高さを変更する

VBAコードを使用して他のすべての行の高さ/列の幅を変更する

Kutools for Excelを使用して他のすべての行の高さ/列の幅を変更する


フィルター機能を使用して他のすべての行の高さを変更する

フィルター機能を使用する場合、まずヘルパー列を作成し、次にフィルター機能を使用して必要な行をフィルターし、すべてのフィルターされた行の高さを一括で調整する必要があります。以下のように操作してください:

1. データの隣にある空白セルに、最初の行と次の行にそれぞれ0と1を入力し、それらを選択してから、ドラッグハンドルを調整したい範囲全体にドラッグし、コピー セルをチェックすると、以下のスクリーンショットのような結果が得られます:

a screenshot of manually entering 0 and 1 in column

2次に、ヘルパー列を選択し、クリックしてください データ > フィルターその後、クリックしてください doc-filter-button-1ボタンを押して、ドロップダウンリストから0か1を選択します(この例では0を選択します)。スクリーンショットをご覧ください:

a screenshot of filtering all 0 cells

3. 「OK」をクリックすると、数字0を含むすべての行がフィルタリングされます。そして、これらのフィルタリングされた行を選択し、 ホーム書式行の高さをクリックします。スクリーンショットをご覧ください:

a screenshot of clicking the Row Height button

4. 行の高さダイアログボックスで、希望する行の高さを入力してください。スクリーンショットをご覧ください:

a screenshot of specifying a certain row height

5. その後、「OK」をクリックしてダイアログボックスを閉じると、選択したフィルタリングされた行の高さが調整されます。最後に、データ フィルターをクリックしてフィルター機能を解除すると、行の高さが交互に変更されます。スクリーンショットをご覧ください:

a screenshot of new row height

注意:

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キーを押してこのコードを実行すると、調整したい行の高さを持つ範囲を選択するように促すポップアップボックスが表示されます。スクリーンショットをご覧ください:

a screenshot of selecting range after running the VBA code

4. その後「OK」をクリックすると、別のポップアップボックスが表示され、必要な行の高さを入力できます。スクリーンショットをご覧ください:

a screenshot of entering row height

5. その後「 OK」をクリックすると、選択した範囲の行の高さが最初の行から交互に変更されます。スクリーンショットをご覧ください:

a screenshot of result

注意:

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. 2行目/列目から行の高さまたは列の幅を変更したい場合は、2行目/列目からデータ範囲を選択するだけで済みます。


Kutools for Excelを使用して他のすべての行の高さ/列の幅を変更する

Kutools for Excelをインストールしている場合、Select Interval Rows & Columnsユーティリティを使用して、最初に他のすべての行または列を選択し、同時に行の高さと列の幅を変更することができます。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用可能です。今すぐ入手してください

1. 使用したいデータ範囲を選択します。

2. Kutools選択>Select Interval Rows & Columnsをクリックします。スクリーンショットをご覧ください:

3. Select Interval Rows & Columnsダイアログボックスで、選択セクションからまたはを選択し、オプションセクションで 間隔およびまたはの番号を入力します。この例では、列を選択します。スクリーンショットをご覧ください:

a screenshot of changing every other row height with Kutools for Excel

4. その後「OK」をクリックすると、セクション内の他のすべての列が選択されます。スクリーンショットをご覧ください:

a screenshot of selecting every other columns

5. そして、 ホーム書式列の幅をクリックし、 列の幅ダイアログボックスに希望する列の幅を入力します。スクリーンショットをご覧ください:

a screenshot of clicking the Column Width option -2 a screenshot of entering a new column width

6. その後「OK」をクリックすると、列の幅が最初の列から交互に変更されます。

a result screenshot of new column widths

注意:

1. 他のすべての行を選択するには、ステップ3のSelect Interval Rows & Columnsダイアログでをチェックしてください。

2. 2行目/列目から行の高さまたは列の幅を変更したい場合は、2行目/列目からデータ範囲を選択するだけで済みます。


関連記事:

Excelで他のすべての行または交互の行に色を付けるにはどうすればよいですか?

Excelで迅速に他のすべての行を削除するにはどうすればよいですか?


最高のオフィス生産性ツール

🤖 Kutools AI Aide:データ分析を革新:インテリジェント実行   |  コード生成  |  カスタム数式の作成  |  データを分析してグラフを生成  |  Kutools Functions を呼び出す
人気機能重複の検索・ハイライト・マーキング   |  空白行を削除   |  データを失わず列やセルを統合   |   丸める ...
スーパーLOOKUP複数条件VLOOKUP   複数値VLOOKUP  |  複数シートの検索  |  ファジーマッチ ....
高度なドロップダウンリストすばやくドロップダウンリストを作成   |  依存型ドロップダウンリスト   |  複数選択ドロップダウンリスト ....
列の管理:特定数の列を追加  | 列を移動  | 非表示列の表示状態を切り替え |  範囲と列の比較 ...
注目機能グリッドフォーカス   |  デザインビュー  |  強化された数式バー   ワークブック&ワークシートの管理   |  オートテキスト ライブラリ (Auto Text)   |  日付ピッカー   |  データの統合   |  セルの暗号化/復号化    リスト送信で電子メールを送信   |  スーパーフィルター   |   特殊フィルタ(太字/斜体/取り消し線でフィルタ...)
トップ15ツールセット12 種類のテキストツールテキストの追加特定の文字を削除など)  |  50 種以上のグラフ タイプガントチャートなど)  |  40を超える実用的な 数式誕生日に基づいて年齢を計算する、など)  |  19種の 挿入ツールQRコードの挿入パスから画像の挿入など)  |  12種類の 変換ツール単語に変換する通貨変換など)  |  7つの 結合&分割ツール高度な行のマージセルの分割など)  |  ...さらに多数
お好きな言語でKutoolsを使用できます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上に対応!

Kutools for ExcelでExcelスキルを強化し、かつてない効率を体験しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と時間短縮を実現します。最も必要な機能を今すぐ取得...


Office TabはOfficeにタブ表示を追加し、作業効率を大幅に向上させます

  • Word、Excel、PowerPointでタブ編集とタブ閲覧を有効にします
  • 同じウィンドウ内の新しいタブで複数のドキュメントを開いたり作成したりできます。新しいウィンドウを開く必要はありません。
  • 生産性が50%向上し、1日に何百回ものマウスクリックも削減できます!