Excelで一定の間隔で特定の列数を挿入する方法は？

毎日のExcelの使用では、必要な状況に遭遇する可能性があります 既存の列の間に列を追加します。 もちろん、挿入機能を使用して列をXNUMXつずつ挿入することもできます。 ただし、大きなデータに直面していて、XNUMX列目またはn列目ごとにXNUMX列を挿入する必要がある場合、挿入機能は明らかに効果的ではありません。 では、どうすればタスクをすばやく完了することができますか？ このチュートリアルでは、問題を解決するためのXNUMXつの簡単な方法について説明します。

VBAコードを使用して、特定の数の空白列を一定の間隔でデータ範囲に挿入します

驚くべき機能を使用して、特定の数の空白列を一定の間隔でデータ範囲に挿入します

以下を使用できます VBAコード n番目の列ごとに特定の数の空白列を挿入します。 次のようにしてください。

1。 プレス Altキー+ F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール 次のマクロをに貼り付けます モジュール 窓。

VBAコード：特定の数の列を一定の間隔でデータに挿入します

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3。 プレス F5 このコードを実行するためのキー。 プロンプトボックスが表示され、選択を促すメッセージが表示されます。 データ範囲 空白の列を挿入する場所。

4。 クリック OK ボタン。 別のプロンプトボックスが表示されます。入力してください 列間隔の数 セクションに 列間隔を入力してください ボックス。

5.引き続きクリックします OK ボタン。 XNUMX番目のプロンプトボックスが表示されます。指定してください 各間隔で挿入する列の数 箱の中。

6。 クリック OK 結果を取得するためのボタン。

VBAコードメソッドを使用したくない場合は、 空白の行と列を挿入する の特徴 Kutools for Excel あなたにぴったりのソリューションです。 この機能を使用すると、数回クリックするだけで、特定の数の列を一定の間隔でデータ範囲に挿入できます。

申請する前に Kutools for Excel、最初にダウンロードしてインストールしてください。

1.最初に既存のデータ範囲を選択します。 次に、をクリックします クツール > インセット > 空白の行と列を挿入する.

2。 ザ 空白の行と列を挿入する ダイアログボックスが表示されます。 手順1で選択したデータ範囲が[範囲]ボックスに表示されます。 を選択してください 空白の列 内のオプション 挿入タイプ セクション。 そして指定します 列数間隔 & 各間隔で挿入する列。 ここでは、1と3を別々に入力します。

3。 クリック OK ボタンをクリックして設定を終了し、結果を取得します。

Note：このユーティリティの無料トライアル（30日間）をご希望の場合は、クリックしてダウンロードし、上記の手順に従って操作を適用してください。

---

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

Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます

• スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
• セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
• [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
• 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
• お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
• テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
• スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
• ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
• ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...

続きを読みます... フル機能 30 日間無料トライアル... 購入... 

---

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

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... フル機能 30 日間無料トライアル... 購入...