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

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

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

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

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

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


矢印青い右バブル フィルタ機能を使用してXNUMX行おきに行の高さを変更する

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

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

doc-change-行の高さ-1

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

doc-change-行の高さ-1

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

doc-change-行の高さ-1

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

doc-change-行の高さ-1

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

doc-change-行の高さ-1

注意:

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

doc-change-行の高さ-1

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

doc-change-行の高さ-1

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

doc-change-行の高さ-1

注意:

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。 クリックしてください クツール > ツールを選択 > 間隔の行と列を選択します、スクリーンショットを参照してください:

doc-change-行の高さ-1

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

doc-change-行の高さ-1

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

doc-change-行の高さ-1

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

doc-change-行の高さ-11 -2 doc-change-行の高さ-12

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

doc-change-行の高さ-1

注意:

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

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


関連記事:

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

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

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations