Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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 このコードを実行するためのキー。 プロンプトボックスが表示され、選択を促すメッセージが表示されます。 データ範囲 空白の列を挿入する場所。
doc 挿入列の間隔 1

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

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

6。 クリック OK 結果を取得するためのボタン。
doc 挿入列の間隔 4


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

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

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

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

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

3。 クリック OK ボタンをクリックして設定を終了し、結果を取得します。
doc 挿入列の間隔 7

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


その他の業務(記事)

Excelで現在の日付に基づいて行をすばやく挿入するにはどうすればよいですか?
日付の行を含むシートがあるとします。次に、現在の日付のすぐ近くに行を挿入します。これは、毎日ブックを開いているときに自動的に変更されます。 Excelでそれを解決できるトリックはありますか?

Excelで上ではなく下に空白行を常に挿入するにはどうすればよいですか?
ご存知のとおり、ワークシートに空白行を挿入すると、選択した行またはセルの上に空白行が常に挿入されます。 ただし、選択したセルまたは行の下に行を挿入する必要がある場合があります。 この仕事をExcelでどのように解決できますか?

Excelのコマンドボタンで空白の新しい行を自動的に挿入する方法は?
多くの場合、ワークシートの指定された位置に空白の新しい行を挿入する必要があります。 この記事では、Excelのコマンドボタンをクリックして、空白の新しい行を自動的に挿入する方法を説明します。

Excelで特定のテキストの後に空白行を挿入する方法は?
次のスクリーンショットのように、特定のテキストの後に空白行を挿入する場合、手動でXNUMXつずつ挿入せずにすばやく簡単に処理するにはどうすればよいですか?


  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...
kteタブ201905
  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (0)
まだ評価はありません。 最初に評価してください!
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護