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

Excelで特定の行数を一定の間隔で挿入するにはどうすればよいですか?

Excelワークシートでは、挿入機能を使用して、既存の行の間に空白行を挿入できます。 しかし、データの範囲が広く、XNUMX行ごとにXNUMX行の空白行を挿入する必要がある場合、このジョブをすばやく便利に完了するにはどうすればよいでしょうか。


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

次のVBAコードは、既存のデータ内のn行ごとに特定の行数を挿入するのに役立ちます。 次のようにしてください。

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

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

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

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount 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)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. このコードを貼り付けたら、を押してください F5 このコードを実行するためのキーを押すと、空白行を挿入するデータ範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4に設定します。 OK をクリックします。 OK ボタンをクリックすると、別のプロンプトボックスが表示されます。行間隔の数を入力してください。スクリーンショットを参照してください。

5。 クリックしてください OK ボタンをクリックして、次のポップアッププロンプトボックスに、挿入する空白行の数を入力してください。スクリーンショットを参照してください。

6。 次に、をクリックします OK、および空白行が定期的に既存のデータに挿入されています。スクリーンショットを参照してください。


VBAコードのセル値に基づいて、特定の数の空白行をデータ範囲に挿入します

セル値のリストに基づいて空白行を挿入する必要がある場合があります。この場合、以下のVBAコードを使用すると、次のようになります。

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

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

VBAコード:番号のリストに基づいて特定の数の空白行を挿入します。

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3。 このコードを貼り付けたら、を押します F5 このコードを実行するためのキー。ポップアウトされたダイアログボックスで、空白行を挿入する番号のリストを選択します。スクリーンショットを参照してください。

4。 次に、をクリックします。 OK、次のスクリーンショットのように、必要な結果が得られます。


便利な機能を使用して、特定の数の空白行を一定の間隔でデータ範囲に挿入します

上記のVBAコードに慣れていない場合は、 Kutools for Excel また、あなたを助けるかもしれません、その 空白の行と列を挿入する 機能は、特定の数の行または列を一定の間隔で既存のデータにすばやく簡単に挿入できます。

注意:これを適用する 空白の行と列を挿入する 、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Excel、次のようにしてください。

1。 空白行を間隔を置いて挿入するデータ範囲を選択します。

2に設定します。 OK をクリックします。 クツール > インセット > 空白の行と列を挿入する、スクリーンショットを参照してください:

3。 の中に 空白の行と列を挿入する ダイアログボックスで、 空白行 からのオプション 挿入タイプ、次に、次のスクリーンショットのように、使用する間隔と空白行の数を指定します。

4。 次に、をクリックします OK 次のスクリーンショットに示すように、ボタンをクリックすると、空白の行が特定の間隔で選択した範囲に挿入されます。

今すぐExcel用のKutoolsをダウンロードして無料トライアル!


VBAコードを使用して、特定の番号に基づいて行を複数回コピーおよび挿入します

ある範囲の多田があり、次のスクリーンショットに示すように、各行をコピーして、番号のリストに基づいて次の行に複数回貼り付けたいとします。 Excelワークシートでこのタスクをどのように解決できますか?

この仕事に対処するために、私はあなたに役立つコードを紹介します。次の手順で実行してください。

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

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

VBAコード:特定の番号に基づいて行を複数回コピーおよび挿入します。

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3。 このコードを貼り付けたら、を押します F5 このコードを実行するためのキー。ポップアウトされたダイアログボックスで、コピーする数値のリストを選択し、それに基づいてデータ行を挿入します。スクリーンショットを参照してください。

4。 次に、をクリックします。 OK ボタンをクリックすると、特定の行数がコピーされて元の各行の下に貼り付けられます。スクリーンショットを参照してください。


驚くべき機能を備えた特定の番号に基づいて、行を複数回コピーおよび挿入します

あなたが持っている場合 Kutools for Excelそのと セル値に基づいて行/列を複製する この機能を使用すると、数値のリストに基づいて行または列をすばやく簡単に挿入できます。

注意:これを適用する セル値に基づいて行/列を複製する、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツール > インセット > セル値に基づいて行/列を複製する、スクリーンショットを参照してください:

2。 の中に 行と列をコピーして挿入する ダイアログボックスで 行をコピーして挿入する 内のオプション 種類 セクションで、複製するデータ範囲を選択し、行のコピーに基づく値のリストを指定します。スクリーンショットを参照してください。

4。 次に、をクリックします。 Ok or お申し込み ボタンをクリックすると、必要に応じて次の結果が得られます。

今すぐExcel用のKutoolsをダウンロードして無料トライアル!

より相対的な記事:

  • 行を複数回コピーして挿入するか、行をX回複製します
  • 日常業務で、行または各行をコピーしてから、ワークシートの現在のデータ行の下に複数回挿入しようとしたことがありますか? たとえば、セルの範囲があります。次に、次のスクリーンショットのように、各行をコピーして次の行に3回貼り付けます。 Excelでこの仕事にどのように対処できますか?
  • Excelで値が変更されたときに空白行を挿入する
  • データの範囲があり、値が変更されたときにデータの間に空白行を挿入して、次のスクリーンショットのようにXNUMXつの列で連続する同じ値を区切ることができるとします。 この記事では、この問題を解決するためのいくつかの秘訣について説明します。
  • 基準に基づいて複数のワークシートから新しいシートに行をコピーする
  • 以下のスクリーンショットと同じフォーマットのXNUMXつのワークシートを含むワークブックがあるとします。 ここで、列Cに「Completed」というテキストが含まれているこれらのワークシートのすべての行を新しいワークシートにコピーします。 手動でXNUMXつずつコピーして貼り付けることなく、この問題をすばやく簡単に解決するにはどうすればよいでしょうか。

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

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

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (39)
5の5を評価 · 2の評価
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、私はあなたのコード(下記)を使用しています。これらの行にカスタムテキストを入力する方法を教えてください。 コードを使用して1行を入力しましたが、完全に機能しましたが、テキストを入力する必要がありますRow2 =DateRow3。=LocationRow20150707 =PhoneNumberよろしくお願いします..."SubInsertRowsAtIntervals()'Updateby1 Dim Rng As Range Dim xInterval As Integer Dim xRows As Integer Dim xRowsCount As Integer Dim xNum2 As Integer Dim xNum8 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:= 1)xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox( "行間隔を入力してください。"、xTitleId、1、Type:= 1)xRows = Application.InputBox("行数各間隔で挿入しますか? "、xTitleId、1、Type:= 1)xNum2 = WorkRng.Row + xInterval xNum1 = xRows + xInterval Set xWs = WorkRng.Parent For i = 1 To Int(xRowsCount / xInterval)xWs.Range(xWs .Cells(xNum1、WorkRng.Column)、xWs.Cells(xNum1 + xRows-1、WorkRng.Column))。Select Application.Selection.EntireRow.Insert xNum1= xNum2 + xNumXNUMX Next End Sub "
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとうございます!!!!! これは素晴らしいです
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとう!!
このコメントは、サイトのモデレーターによって最小化されました
Hi


私はintervalvbaコードを使用していますが、100000行を超えると機能しません。もしあれば、何を変更すればよいかを提案してください。


Sub InsertRowsAtIntervals()
'Updateby20150707
範囲として暗くする
Dim xInterval を整数として
整数としての薄暗いxRows
Dim xRowsCount を整数として
Dim xNum1 を整数として
Dim xNum2 を整数として
範囲として薄暗いWorkRng
ワークシートとしての薄暗いxW
xTitleId = "KutoolsforExcel"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox( "行間隔を入力してください。"、xTitleId、1、Type:= 1)
xRows = Application.InputBox( "各間隔で挿入する行数?"、xTitleId、1、Type:= 1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
xWs=WorkRng.Parentを設定します
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1、WorkRng.Column)、xWs.Cells(xNum1 + xRows-1、WorkRng.Column))。Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
次へ
End Subの
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい-あなたは私に多くの無意味なデータ入力を節約しました、どうもありがとうございました
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、特定の数の列を一定の間隔でデータに挿入するためのコードを取得するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、PK、
特定の間隔で既存のデータに空白の列を挿入するには、以下のVBAコードが役立ちます。 ぜひお試しください。

Sub InsertColumnsAtIntervals()
範囲として暗くする
Dim xInterval を整数として
整数としての薄暗いxC
Dim xCCount を整数として
Dim xNum1 を整数として
Dim xNum2 を整数として
範囲として薄暗いWorkRng
ワークシートとしての薄暗いxW
xTitleId = "KutoolsforExcel"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox( "列の間隔を入力してください。"、xTitleId、1、Type:= 1)
xCs = Application.InputBox( "各間隔で挿入する列の数?"、xTitleId、1、Type:= 1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xInterval
xWs=WorkRng.Parentを設定します
I = 1の場合Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row、xNum1 + xCs-1)、xWs.Cells(WorkRng.Row、xNum1))。Select
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
次へ
End Subの
このコメントは、サイトのモデレーターによって最小化されました
最後のセルに記載されている数値に従ってExcelデータに行を追加する方法は、最後のセルの数値が4である場合に、Excelデータで言うと、4行を自動的にddする方法は何ですか。 別の行の番号は72などです
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、SPGupta、
特定の番号リストに基づいて空白行を挿入するには、以下のVBAコードを適用してください。
ぜひお試しください。お役に立てば幸いです。

Sub Insert()
'UpdatebyExtendoffice
範囲としての薄暗いxRg
Dim xAddress を文字列として
Dim I、xNum、xLastRow、xFstRow、xCol、xCount As Long
エラーで次の再開
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox( "使用する特定の番号の列を選択(単一列):"、 "KuTools For Excel"、xAddress 、、、、、、 8)
xRgが何もない場合は、Subを終了します
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
xRg = xRg(1)に設定します
I = xLastRowToxFstRowの場合ステップ-1
xNum = Cells(I、xCol)
IsNumeric(xNum)AndxNum>0の場合
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
終了する場合
次へ
xRg.Resize(xCount、1).Select
Application.ScreenUpdating = True
End Subの
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、助けていただけませんか? このコードを変更して、セル内の数より4行少ない行を広告するにはどうすればよいですか? たとえば、セルの数が3の場合、プログラムは1行を追加します。 セルの数がXNUMXの場合、行は追加されません
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ニーナ、
タスクを解決するには、次のコードを使用してください。

Sub Insert()
'UpdatebyExtendoffice
範囲としての薄暗いxRg
Dim xAddress を文字列として
Dim I、xNum、xLastRow、xFstRow、xCol、xCount As Long
エラーで次の再開
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox( "使用する特定の番号の列を選択(単一列):"、 "KuTools For Excel"、xAddress 、、、、、、 8)
xRgが何もない場合は、Subを終了します
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
xRg = xRg(1)に設定します
I = xLastRowToxFstRowの場合ステップ-1
xNum = Cells(I、xCol)
xNum = xNum-1
IsNumeric(xNum)AndxNum>0の場合
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
終了する場合
次へ
xRg.Resize(xCount、1).Select
Application.ScreenUpdating = True
End Subの


ぜひお試しください。お役に立てば幸いです。
このコメントは、サイトのモデレーターによって最小化されました
それは完璧に動作します、どうもありがとうございました!
このコメントは、サイトのモデレーターによって最小化されました
これは素晴らしい。 私はただ疑問に思います...そして私の英語は完璧ではないので、あなたが私を理解してくれることを願っています:)....。
追加された空白行を、そのパラメトリック番号があった行の値で埋めることは可能ですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ウラジミール、ワークシートの数字のリストに基づいて空白行を挿入することを意味しますか? その場合は、以下のコードを適用してください。
Sub Insert()
'UpdatebyExtendoffice
範囲としての薄暗いxRg
Dim xAddress を文字列として
Dim I、xNum、xLastRow、xFstRow、xCol、xCount As Long
エラーで次の再開
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox( "行を挿入する数値のリストを以下に基づいて選択します:"、 "KuTools For Excel"、xAddress 、、、、、、 8)
xRgが何もない場合は、Subを終了します
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
xRg = xRg(1)に設定します
I = xLastRowToxFstRowの場合ステップ-1
xNum = Cells(I、xCol)
IsNumeric(xNum)AndxNum>0の場合
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
終了する場合
次へ
xRg.Resize(xCount、1).Select
Application.ScreenUpdating = True
Subを終了してください。他に質問がある場合は、ここにコメントしてください。
このコメントは、サイトのモデレーターによって最小化されました
このコードは、行を挿入するのに最適です.... Sub Insert()
'UpdatebyExtendoffice
範囲としての薄暗いxRg
Dim xAddress を文字列として
Dim I、xNum、xLastRow、xFstRow、xCol、xCount As Long
エラーで次の再開
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox( "使用する特定の番号の列を選択(単一列):"、 "KuTools For Excel"、xAddress 、、、、、、 8)
xRgが何もない場合は、Subを終了します
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
xRg = xRg(1)に設定します
I = xLastRowToxFstRowの場合ステップ-1
xNum = Cells(I、xCol)
xNum = xNum-1
IsNumeric(xNum)AndxNum>0の場合
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
終了する場合
次へ
xRg.Resize(xCount、1).Select
Application.ScreenUpdating = True
End Subの

しかし、それは可能ですか....そのパラメトリック番号があった行からそれらの空白セルのデータをコピーしますか? ここに写真を投稿できますか? 必要なものをお見せすればもっと簡単かもしれません:)
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ウラジミール、以下のVBAコードが役に立ちますので、試してみてください。 サブCopyRow()
'UpdatebyExtendoffice
範囲としての薄暗いxRg
範囲としての薄暗いxCRg
Dim xFNum を整数として
Dim xRN を整数として
エラーで次の再開
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox( "番号リストを選択"、 "Kutools for Excel"、xTxt 、、、、、 8)
xRgが何もない場合は、Subを終了します

xRg.Columns.Count>1の場合
MsgBox「単一の列を選択してください!」
GoTo SelectRange
終了する場合
Application.ScreenUpdating = False
xFNum = xRg.Count To 1Step-1の場合
xCRg = xRg.Item(xFNum)を設定します
xRN = CInt(xCRg.Value)
行あり(xCRg.Row)
。コピー
.Resize(xRN).Insert
最後に
次へ
Application.ScreenUpdating = True
End Subの

このコメントは、サイトのモデレーターによって最小化されました
私たちはとても近いです:)私が今必要としているのは、パラメトリック数の値よりも、最後のVBAコードよりも8行少ないことです。 例:数が7の場合、XNUMX行を挿入してコピーする必要があります。 このコピーだけでニーナのために作ったように
したがって、数が8の場合、合計8行が挿入およびコピーされ、前のVBAコードでは9行になります。
TNX
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、この場合、次のコードが役立つ場合があります。試してみてください。 Sub CopyData()
'Updateby Extendoffice
xRowを暗くする
バリアントとしての薄暗いVInSertNum
xRow = 1
Application.ScreenUpdating = False
Do While(Cells(xRow、 "A")<> "")
VInSertNum = Cells(xRow、 "B")
If((VInSertNum> 1)And IsNumeric(VInSertNum))Then
Range(Cells(xRow、 "A")、Cells(xRow、 "B"))。Copy
Range(Cells(xRow + 1、 "A")、Cells(xRow + VInSertNum-1、 "B"))。Select
Selection.Insert Shift:= xlDown
xRow = xRow + VInSertNum-1
終了する場合
xRow = xRow + 1
ループ
Application.ScreenUpdating = False
サブノートの終了:上記のコードでは、文字 A データ範囲の開始列と文字を示します B に基づいて行を複製する列文字です。 必要に応じて変更してください。
このコメントは、サイトのモデレーターによって最小化されました
コピーした数をXNUMXつ差し引くモジュールはありますか?
このコメントは、サイトのモデレーターによって最小化されました
いいえ、これは持っていますが、1を差し引くために必要ですか?
サブCopyRow()
'UpdatebyExtendoffice
範囲としての薄暗いxRg
範囲としての薄暗いxCRg
Dim xFNum を整数として
Dim xRN を整数として
エラーで次の再開
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox( "番号リストを選択"、 "Kutools for Excel"、xTxt 、、、、、 8)
xRgが何もない場合は、Subを終了します

xRg.Columns.Count>1の場合
MsgBox「単一の列を選択してください!」
GoTo SelectRange
終了する場合
Application.ScreenUpdating = False
xFNum = xRg.Count To 1Step-1の場合
xCRg = xRg.Item(xFNum)を設定します
xRN = CInt(xCRg.Value)
行あり(xCRg.Row)
。コピー
.Resize(xRN).Insert
最後に
次へ
Application.ScreenUpdating = True
End Subの
このコメントは、サイトのモデレーターによって最小化されました
私がやろうとしているのは、複数の数量のスプレッドシートからWordでラベルを作成して印刷することです。
このコメントは、サイトのモデレーターによって最小化されました
これを見る機会がありましたか?
このコメントは、サイトのモデレーターによって最小化されました
金はあなたを祝福します
このコメントは、サイトのモデレーターによって最小化されました
セル内の数値を複製し、元の数値から1を引いたExcelリストを生成するコードをお探しですか?
このコメントは、サイトのモデレーターによって最小化されました
作者ありがとう! あなたはこれらのために最高の表彰に値する! しかし、上記のコードで作成したすべての空白行に定数値を入れるコードを手伝っていただけませんか。 より明確にするために、すべての空白行に定数値を挿入する必要があります(これは上記のコードですでに解決されています)。次に、すべての空白行に定数値を挿入する必要があります(これが私の問題です)。 よろしくお願いします。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、空白行を特定の値で埋めるという意味ですか? もしそうなら、次の記事cnaがあなたを助けます:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
ぜひお試しください。
このコメントは、サイトのモデレーターによって最小化されました
選択した列の重複する値に基づいて行を削除するためのVBAコードを取得して、すべての一意の値を保持できますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ロイ、重複する値に基づいて行を削除する場合は、通常、 重複を削除する Excelの機能を使用して行を削除します。もちろん、VBAコードが必要な場合は、次のコードを使用してください:(まず、削除するデータ範囲を選択してから、このコードを実行します。選択した最初の列の重複する値はすぐに削除されます。) Sub Delete_duplicate_rows()
範囲として暗くする
Rng=選択を設定します
Rng.RemoveDuplicates Columns:= Array(1)、Header:= xlYes
終了サブ試してみてください、それがあなたを助けることができることを願っています!
このコメントは、サイトのモデレーターによって最小化されました
これはとてもクールです!! どうもありがとう
このコメントは、サイトのモデレーターによって最小化されました
Muito obrigado、salvou meu trabalho、eunãotinhaideia decomofazer。 Muito obrigado mesmo!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
どういたしまして。 お役に立ててうれしいです。 ご不明な点がございましたら、お気軽にお問い合わせください。 すてきな一日を。
敬具
マンディ
このコメントは、サイトのモデレーターによって最小化されました
このように列を挿入する方法を教えてください、コードは何ですか
このコメントは、サイトのモデレーターによって最小化されました
こんにちは友人、
この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


敬具
マンディ
このコメントは、サイトのモデレーターによって最小化されました
Вотвыручилитаквыручили!
Сидел、ломалголовукакдобавитьстрокипозаданномуколичеству。
Вашмакросмнеоченьпомог。
5の5を評価
このコメントは、サイトのモデレーターによって最小化されました
お名前 メールアドレス 電話番号
0 お名前 メールアドレス 電話番号
住所 2 行目 名前 電話 0
お名前 メールアドレス 電話番号
0 お名前 メールアドレス 電話番号
アドレス行 2 0


これを編集して、0 の電話番号で新しい行を開始せずに、空の値または 0 の値ごとに新しい行を開始するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ジャロッド

申し訳ありませんが、あなたの問題を明確に理解できません。
あなたの問題をもっと詳しく説明していただけますか? または、ここにスクリーンショットまたはファイルを挿入することもできます。
ありがとうございました!
このコメントは、サイトのモデレーターによって最小化されました
はいはい、hay algun codigo que me permita copiar los datos, pero que en laprima columna que son fechas pueda ser consecutivo.

ejemplo

en vez de que quede asi

01 年 10 月 2022 日 19.258.369-4 フアン・ラミレス
01 年 10 月 2022 日 19.258.369-4 フアン・ラミレス
01 年 10 月 2022 日 19.258.369-4 フアン・ラミレス

quede asi

01 年 10 月 2022 日 19.258.369-4 フアン・ラミレス
02 年 10 月 2022 日 19.258.369-4 フアン・ラミレス
03 年 10 月 2022 日 19.258.369-4 フアン・ラミレス

感謝
このコメントは、サイトのモデレーターによって最小化されました
はいはい、干し草のアルグン・コディゴ・ク・ミー・パーミタ・ロス・ダトス、ペロ・ク・エン・ラ・プリメラ・カラム・ク・ソン・フェチャス・プエダン・セル・コンセクティバ.

ejemplo

en vez de que quede asi

10/01/2022 19.258.369-4 フアン・ラミレス
10/01/2022 19.258.369-4 フアン・ラミレス
10/01/2022 19.258.369-4 フアン・ラミレス

quede asi

10/01/2022 19.258.369-4 フアン・ラミレス
11/01/2022 19.258.369-4 フアン・ラミレス
12/01/2022 19.258.369-4 フアン・ラミレス

感謝
このコメントは、サイトのモデレーターによって最小化されました
素晴らしいVBAスクリプト!
間に新しい行を追加する必要がある5000行以上ありました。 他のすべてのガイドは、「ヘルパー」列を作成するように私に言いました。新しい行を追加するためだけに、1,2コピーペーストを何度も追加するには、私の人生の大部分が必要です。
だから、これをありがとう!
5の5を評価
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

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