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

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

フィルタ機能を使用してXNUMX行おきに行の高さを変更する

VBAコードでXNUMX行おきの行の高さ/列の幅を変更する

Kutools forExcelでXNUMX行おきの行の高さ/列の幅を変更する

フィルタ機能を使用してXNUMX行おきに行の高さを変更する

使用することにより フィルタ 関数の場合、最初にヘルパー列を作成してから、フィルター機能を適用して必要な行をフィルター処理し、フィルター処理されたすべての行の高さを一度に調整する必要があります。 このようにしてください：

1。 データの他に、空白のセルで、0行目と1行目に別々にXNUMXとXNUMXを入力して選択し、行の高さを調整する範囲セルに塗りつぶしハンドルをドラッグして、チェックします。 セルをコピーする 塗りつぶしハンドルを作成すると、次のスクリーンショットのような結果が得られます。

2。 次に、ヘルパー列を選択して、 且つ > フィルタ、[OK]をクリックします ボタンをクリックし、ドロップダウンリストから0または1を選択します。この例では、0を選択します。スクリーンショットを参照してください。

3に設定します。 OK をクリックします。 OK、番号0を含むすべての行がフィルタリングされました。 次に、これらのフィルタリングされた行を選択して、 ホーム > フォーマット > 行の高さ、スクリーンショットを参照してください：

4。 の中に 行の高さ ダイアログで、必要な行の高さを入力してください。スクリーンショットを参照してください。

5。 次に、をクリックします OK このダイアログボックスを閉じると、選択したフィルタリングされた行の高さが調整されます。 最後に、をクリックします 且つ > フィルタ フィルタ機能をキャンセルすると、行の高さが交互に変更されます。 スクリーンショットを参照してください：

注意：

1.行の高さを最初の行から交互に変更できます。

2.この方法は、列幅の変更には適用されません。

3.手順が完了したら、必要に応じてヘルパー列を削除できます。

VBAコードでXNUMX行おきの行の高さ/列の幅を変更する

行の高さと列の幅の両方を変更する必要がある場合は、次のVBAコードを使用すると便利です。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ。

VBAコード：ワークシートのXNUMX行おきの高さを変更します

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。 そして、 OK、別のプロンプトボックスが表示され、必要な行の高さを入力できます。スクリーンショットを参照してください。

5。 そして、 OK、選択した範囲の行の高さが最初の行から交互に変更されました。 スクリーンショットを参照してください：

注意：

1. XNUMXつおきの列幅を調整する場合は、次のVBAコードを適用してください。

VBAコード：ワークシートの列幅をXNUMXつおきに変更する

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

Kutools forExcelでXNUMX行おきの行の高さ/列の幅を変更する

あなたがインストールしている場合 Kutools for Excel、 その 間隔の行と列を選択します ユーティリティは、最初にXNUMXつおきの行または列を選択してから、行の高さと列の幅を同時に変更するのにも役立ちます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。今すぐ入手.

1。 使用するデータ範囲を選択します。

2。 クリックしてください クツール > 選択 > 間隔の行と列を選択します、スクリーンショットを参照してください：

3。 の中に 間隔の行と列を選択します ダイアログボックス、チェック 行 or コラム 選択 必要に応じてセクションを入力し、[オプション]セクションから次のように入力します。 の間隔 • コラム or 行 それらに番号を付けます。この例では、列を選択します。スクリーンショットを参照してください。

4。 次に、をクリックします OK、セクションで他のすべての列が選択されています。スクリーンショットを参照してください。

5。 そして、 ホーム > フォーマット > 列幅、および必要な列幅の数値をに入力します 列幅 ダイアログボックス、スクリーンショットを参照してください：

6。 次に、をクリックします OK、および列幅が最初の列から交互に変更されました。

注意：

1. XNUMX行おきに選択するには、チェックしてください 行 in 間隔の行と列を選択します 手順3のダイアログ。

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

関連記事：

ExcelでXNUMX行おきまたはXNUMX行おきにシェーディングする方法は？

ExcelでXNUMX行おきにすばやく削除するにはどうすればよいですか？