すべてのcurrentregionの後に2つの空白行を挿入します

NewLearner

Excelの現在のデータ領域ごとに2つの空白行を挿入する必要があります。

理論的には、私のコードは機能し、データの後に挿入する必要がありますが、何度も試した後、データの前に挿入します。

どこで私は間違えましたか?誰かが親切に私を案内してくれますか?ありがとう!

Sub AutoInsert2BlankRows()

Selection.CurrentRegion.Select
SendKeys "^{.}"
SendKeys "^{.}"
SendKeys "~"

ActiveCell.EntireRow.Select
'this chooses the whole row

Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
End Sub

これがさらに明確にするための私の写真です。ご覧のとおり、空白行で区切られた3つの異なるcurrentregionがあります。必要なのは、現在の各領域の間に3つの空白行を作成するために、既存の空白行に加えて2つの追加の空白行を挿入することです。(以前に十分に明確でなかった場合はお詫びします。)

ここに画像の説明を入力してください

こちらが画像へのリンクです!

0m3r

これはあなたがやろうとしていることですか?

最初の例

Sub AutoInsert2BlankRows()

'   // Set Variables.
    Dim Rng As Range
    Dim i As Long

'   // Target Range.
    Set Rng = Range("A2:A10")

'   // Reverse looping
    For i = Rng.Rows.Count To 2 Step -1

'       // Insert two blank rows.
        Rng.Rows(i).EntireRow.Insert
        Rng.Rows(i).EntireRow.Insert

'   // Increment loop
    Next i


End Sub

編集

各空白行の後にさらに2つの空白行を追加するには、次のことを試してください。

2番目の例

Sub AutoInsert2BlankRows()

'   // Set Variables.
    Dim Rng As Range
    Dim i As Long

'   // Target Range.
    Set Rng = Range("A2:A10")

'   // Reverse looping
    For i = Rng.Rows.Count To 2 Step -1

        If Cells(i, 1).Value = 0 Then

'          // Insert two blank rows.
            Rng.Rows(i).EntireRow.Insert
            Rng.Rows(i).EntireRow.Insert

        End If

'   // Increment loop
    Next i


End Sub

3番目の例

Option Explicit
Sub AutoInsert2BlankRows()
'   // Set Variables.
    Dim Rng As Range
    Dim i As Long

'   // Target Range.
    Set Rng = ActiveSheet.UsedRange

'   // Reverse looping
    For i = Rng.Rows.Count To 1 Step -1

'       // If entire row is empty then
        If Application.CountA(Rows(i).EntireRow) = 0 Then

'           // Insert blank row
            Rows(i).Insert
            Rows(i).Insert

        End If

    Next i

End Sub

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]

編集
0

コメントを追加

0

関連記事

分類Dev

特定の行の後に空白行を挿入する-VBA

分類Dev

Javascriptは次の空白行に値を挿入します

分類Dev

Javascriptは次の空白行に値を挿入します

分類Dev

SQLServer-行の後に空白行を挿入する

分類Dev

rのdplyrを使用して特定の位置に空白行を挿入する方法

分類Dev

パンダは交互の空白行を挿入します

分類Dev

検索文字列の下に空白行を挿入し、次の行に文字列を挿入します

分類Dev

AWK 最初の一致の後に行を挿入し、次の行がパターンでない場合は空白行を挿入します

分類Dev

sedを含むテキストの前に空白行を挿入します

分類Dev

Excelが一貫してシートの上部に空白行を挿入します(最初の行をフリーズした後)

分類Dev

データを列方向ではなく行方向に挿入し、各レコードの後に1行の空白行を挿入します

分類Dev

データフレームのすべての行に空白行を挿入する

分類Dev

Mac OS での一致の前後に空白行を挿入する

分類Dev

すべての文字列の後に表示される空白行を削除します

分類Dev

golang regexpはすべての空白行を削除します

分類Dev

Vimの現在の行の上または下に空白行を挿入します

分類Dev

このコードが書き込まれた2つの行の間に空白行を挿入するのはなぜですか(C#Excel相互運用)?

分類Dev

bashの空白行の後のすべてのテキストを破棄します

分類Dev

Vim:最初の非空白行まですべての空白行を削除します

分類Dev

Excelで2つの列を比較し、1つは期間を繰り返し、空白行を挿入し、対応するデータを移動します

分類Dev

Markdownで2つの空白行を作成します

分類Dev

UDTのすべての行に行を挿入します

分類Dev

csvファイルpythonの5行ごとに空白行を挿入します

分類Dev

bash / linuxを使用して特定の行の後に空白行を作成する

分類Dev

エントリが空白の2つの列を追加し、最後の列をすべて空白にします

分類Dev

すべての一意の行の間に空白行を表示しますか?

分類Dev

MySQL:aiはどのようにして特定の数の空白行をテーブルに挿入しますか

分類Dev

パンダ:グループごとにインデックス付きの空白行と行を1つずつ挿入しますか?

分類Dev

IntelliJがクラスファイルの最後の '}'の前に空白行を挿入する

Related 関連記事

  1. 1

    特定の行の後に空白行を挿入する-VBA

  2. 2

    Javascriptは次の空白行に値を挿入します

  3. 3

    Javascriptは次の空白行に値を挿入します

  4. 4

    SQLServer-行の後に空白行を挿入する

  5. 5

    rのdplyrを使用して特定の位置に空白行を挿入する方法

  6. 6

    パンダは交互の空白行を挿入します

  7. 7

    検索文字列の下に空白行を挿入し、次の行に文字列を挿入します

  8. 8

    AWK 最初の一致の後に行を挿入し、次の行がパターンでない場合は空白行を挿入します

  9. 9

    sedを含むテキストの前に空白行を挿入します

  10. 10

    Excelが一貫してシートの上部に空白行を挿入します(最初の行をフリーズした後)

  11. 11

    データを列方向ではなく行方向に挿入し、各レコードの後に1行の空白行を挿入します

  12. 12

    データフレームのすべての行に空白行を挿入する

  13. 13

    Mac OS での一致の前後に空白行を挿入する

  14. 14

    すべての文字列の後に表示される空白行を削除します

  15. 15

    golang regexpはすべての空白行を削除します

  16. 16

    Vimの現在の行の上または下に空白行を挿入します

  17. 17

    このコードが書き込まれた2つの行の間に空白行を挿入するのはなぜですか(C#Excel相互運用)?

  18. 18

    bashの空白行の後のすべてのテキストを破棄します

  19. 19

    Vim:最初の非空白行まですべての空白行を削除します

  20. 20

    Excelで2つの列を比較し、1つは期間を繰り返し、空白行を挿入し、対応するデータを移動します

  21. 21

    Markdownで2つの空白行を作成します

  22. 22

    UDTのすべての行に行を挿入します

  23. 23

    csvファイルpythonの5行ごとに空白行を挿入します

  24. 24

    bash / linuxを使用して特定の行の後に空白行を作成する

  25. 25

    エントリが空白の2つの列を追加し、最後の列をすべて空白にします

  26. 26

    すべての一意の行の間に空白行を表示しますか?

  27. 27

    MySQL:aiはどのようにして特定の数の空白行をテーブルに挿入しますか

  28. 28

    パンダ:グループごとにインデックス付きの空白行と行を1つずつ挿入しますか?

  29. 29

    IntelliJがクラスファイルの最後の '}'の前に空白行を挿入する

ホットタグ

アーカイブ