この記事では、Excelで新しい列を追加する方法について見てみましょう。 読んで、隣接しない列を含む1つ以上の列を挿入するショートカットを学びます。 他の列を追加するのを自動化する特別なVBAマクロを取得し、共有します。

Excelの表に新しい列を挿入する良い方法を探していると、多くの異なるヒントやトリックを見つける可能性があります。 この記事では、1つまたは複数の隣接または非隣接する列を追加するための最速かつ最も効果的な方法を収集したいと思いました。

Excelのレポートはほぼ完成していますが、重要な詳細を入力するための列が不足していることを理解した場合、以下の時間効率の良いトリックをつかむ。 列の挿入のショートカットから他のすべての列を追加するには、ポイントにまっすぐに移動する適切なリンクをクリックしてください。

カラム挿入のショートカット

もし、1つの列を素早く挿入するのであれば、これらの手順が圧倒的に早く、簡単です。

1. をクリックします。 レターボタン をクリックすると、新しい列を挿入したい場所のすぐ右側にある列が表示されます。

ヒント：任意のセルを選択し、Ctrl + Spaceのショートカットを押すと、列全体をピックすることもできます。

2. あとは、Ctrl + Shift + +（メインキーボードのプラス）を押すだけです。

ヒント：ショートカットにあまり興味がない場合は、選択した列の上で右クリックして インサート オプションを選択します。

Excelで新しい行を挿入するには、本当に2つの簡単なステップしかありません。 リストに複数の空の列を追加する方法については、続きをお読みください。

ヒント：その他の便利なキーボードショートカットは、30 most useful Excel keyboard shortcutsに掲載されています。

Excelで複数の新しい列を挿入する

ワークシートに複数の列を追加する必要がある場合、列を一つずつ選択してExcelの列の挿入ショートカットを押す必要はありません。 幸いにも、複数の空の列を一度に貼り付けることが可能です。

1. 列のボタンを選択し、新たに取得したい列の数だけハイライトします。 新しい列は、すぐに左側に表示されます。

ヒント：1つの行で隣り合う複数のセルを選択し、Ctrl + Space キーを押しても同じことができます。

2. Ctrl + Shift + +（メインキーボードではプラス）キーを押すと、新しい列がいくつか挿入されます。

ヒント：F4キーを押すと直前の操作を繰り返し、Ctrl + Yキーで新しい列を挿入できます。

このように、Excelのテーブルに複数の新しい列を簡単に追加することができます。 隣接していない複数の列を追加する必要がある場合は、以下の手順を参照してください。

隣接しない複数の列を合算する

Excelでは、結合していない複数の列を選択し、列の挿入のショートカットを使用して、新しい列をその左側に表示させることができます。

1. 隣接していない複数の列をクリックして選択します。 書簡 ボタンを押しながら Ctrl キーを押すと、新しく挿入された列が左側に表示されます。

2. Ctrl + Shift + +（メインキーボードではプラス）キーを押すと、複数の新しい列が一括挿入されます。

Excelテーブルとしてフォーマットされたリストにカラムを追加する

スプレッドシートの書式が エクセル表 を選択することができます。 テーブルの列を右側に挿入する を選択することもできます。 テーブルの列を左側に挿入する をテーブルの任意のカラムに適用することができます。

1. 列を挿入するには、必要な列を選択し、その列を右クリックする必要があります。

2. そして、選ぶ 挿入 -> テーブルの列を右側に配置する 最後の列の場合、または テーブルの列を左へ .

新しいカラムは、デフォルトでColumn1という名前になります。

1列おきに挿入する特殊なVBAマクロ

多くのExcelユーザーは、頻繁に行う表計算作業を自動化して、できるだけ時間を節約しようとします。 そこで、この記事をマクロなしで残すわけにはいきませんでした。 列を離して移動する必要がある場合は、このシンプルなコードを入手してください。

Sub InsertEveryOtherColumn() Dim colNo, colStart, colFinish, colStep As Long Dim rng2Insert As Range colStep = 2 colStart = Application.Selection.Cells(1, 1).Column + 1 colFinish = (ActiveSheet.UsedRange.SpecialCells( _ xlCellTypeLastCell ).Column * 2 ) - colStart Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For colNo = colStart To colFinish Step colStepActiveSheet.Cells(1, colNo).EntireColumn.Insert Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

これらのヒントがあなたの表計算作業の助けになることを願っています。 もしあなたが行や列のレベルでExcelを使って作業することが多いなら、以下の関連記事をご覧ください。 私はいつでもあなたのコメントや質問を歓迎します。 幸せになってExcelで活躍しましょう。