Skip to main content
本文に 47 文字追加; タイトルを編集
ソース リンク
cubick
  • 2.1万
  • 5
  • 27
  • 64

マクロで1行おきに2行セルを挿入したいのですが、うまくがうまく動きません。コードの添削をお願いします!

下記のマクロですが、これだと1行おきに1行しか挿入できず、本当は11行おきに2行空白のセルを挿入したいんたいのですが、下記のマクロでは1行おきに1行しか挿入できません。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく

恐らく、ここが違うのだと思いますが、

ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown

自力では解決できず。ご教示いただけますと幸いです!

[現状のコード]

Sub 一行おきに一行セルを挿入()
    Application.ScreenUpdating = False
    行数 = 1
    Range("C2").Select
    Do While ActiveCell.Offset(行数).Value <> ""
        ActiveCell.Offset(行数, 0).Select
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(行数).Select
    Loop
    Application.ScreenUpdating = True
End Sub

マクロで1行おきに2行セルを挿入したいのですが、うまく動きません。コードの添削をお願いします!

下記のマクロですが、これだと1行おきに1行しか挿入できず、本当は1行おきに2行空白のセルを挿入したいんです。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく、ここが違うのだと思いますが、

ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown

自力では解決できず。ご教示いただけますと幸いです!

[コード]

Sub 一行おきに一行セルを挿入()
Application.ScreenUpdating = False
行数 = 1
Range("C2").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数).Select
Loop
Application.ScreenUpdating = True
End Sub

マクロで1行おきに2行セルを挿入したいがうまく動きません

1行おきに2行空白のセルを挿入したいのですが、下記のマクロでは1行おきに1行しか挿入できません。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。

恐らく、ここが違うのだと思いますが、

ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown

自力では解決できず。ご教示いただけますと幸いです!

現状のコード

Sub 一行おきに一行セルを挿入()
    Application.ScreenUpdating = False
    行数 = 1
    Range("C2").Select
    Do While ActiveCell.Offset(行数).Value <> ""
        ActiveCell.Offset(行数, 0).Select
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(行数).Select
    Loop
    Application.ScreenUpdating = True
End Sub
本文に 18 文字追加
ソース リンク
payaneco
  • 1.2万
  • 2
  • 23
  • 58

下記のマクロですが、これだと1行おきに1行しか挿入できず、本当は1行おきに2行空白のセルを挿入したいんです。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく、ここが違うのだと思いますが、
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown

ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown

自力では解決できず。ご教示いただけますと幸いです!

[コード]
Sub 一行おきに一行セルを挿入()
Application.ScreenUpdating = False
行数 = 1
Range("C2").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数).Select
Loop
Application.ScreenUpdating = True
End Sub

Sub 一行おきに一行セルを挿入()
Application.ScreenUpdating = False
行数 = 1
Range("C2").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数).Select
Loop
Application.ScreenUpdating = True
End Sub

下記のマクロですが、これだと1行おきに1行しか挿入できず、本当は1行おきに2行空白のセルを挿入したいんです。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく、ここが違うのだと思いますが、
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown

自力では解決できず。ご教示いただけますと幸いです!

[コード]
Sub 一行おきに一行セルを挿入()
Application.ScreenUpdating = False
行数 = 1
Range("C2").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数).Select
Loop
Application.ScreenUpdating = True
End Sub

下記のマクロですが、これだと1行おきに1行しか挿入できず、本当は1行おきに2行空白のセルを挿入したいんです。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく、ここが違うのだと思いますが、

ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown

自力では解決できず。ご教示いただけますと幸いです!

[コード]

Sub 一行おきに一行セルを挿入()
Application.ScreenUpdating = False
行数 = 1
Range("C2").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数).Select
Loop
Application.ScreenUpdating = True
End Sub
ソース リンク

マクロで1行おきに、2行セルを挿入したいのですが、うまく動きません。コードの添削をお願いします!

下記のマクロですが、これだと1行おきに1行しか挿入できず、本当は1行おきに2行空白のセルを挿入したいんです。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく、ここが違うのだと思いますが、
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown

自力では解決できず。ご教示いただけますと幸いです!

[コード]
Sub 一行おきに一行セルを挿入()
Application.ScreenUpdating = False
行数 = 1
Range("C2").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数).Select
Loop
Application.ScreenUpdating = True
End Sub