連続するセルに空白セルを入力する方法

質問

縦列に
【A1】
a
b
c
a
b
c
a
b
c
…（以下100回ほど）

上記のように連続する列があるといます。
これを、
【A1】 【A2】
a
b
【空白セル】 c
a
b
【空白セル】 c
a
b
【空白セル】 c
…（以下連続）

このようにしたいです。
どのようにすればよいのでしょうか？
教えてください。

回答No.2

・真 綾・（@Ma-yan_bh1011） · ベストアンサー

いや、空白を挿入する条件は？(笑)

まあ「c」だとして、以下をどうぞ

Sub insertBlank()
For Each c In Range("A1", Cells.SpecialCells(xlCellTypeLastCell)).Cells
If c.Value = "c" Then c.Insert (xlShiftToRight)
Next
End Sub

「"c"」の「c」部分以外は変更しないこと。
「どう使うの？」って言われたくないので先にやり方を書いておきます。
そのシートのタブを右クリックして「コードの表示」、出てきたウィンドウに貼り付けてF5を押すと実行。
終わったらこのコードを削除すればOKです。

お礼

詳しく教えてくださってありがとうございました。
できました！

回答No.4

mu2011

一例です。
B1に=A1、B2に=A2、B3、C1:C2は未入力、C3に=A3を入力→B1:C3範囲を選択→下方向にコピー→コピー範囲上で右クリック→形式を選択して貼り付け→値を選択→ＯＫ→Ａ列を削除

お礼

ありがとうございます。
こういう方法もあるのですね。さっそくやってみます。

回答No.3

某HN クロメート(Chromate)（@CoalTar）

1. A列選択
2. [Ctrl]+[H]置換
　 c → ,c
3. データ - 区切り位置
　 ●カンマやタブ～～～ [次へ]
　　[レ]カンマ にチェック [完了]

お礼

ありがとうございました！
無事Cを次セルに移動することができました。

ありがとうございます！

回答No.1

taranko

置換をするのが早いと思います。

A列を選択し、編集⇒置換

検索する文字列・・・C
置換え後の文字列・・・　　　　　　　　（空白）

すべて置換をクリック

お礼

すみません。補足とお礼を間違えてしまいました。
ありがとうございした。

補足

ありがとうございます。
空白を入れたあとに、隣のセルにCを表示させたいのです。