エクセルの使い方

質問

エクセルで連続したデータが文字列(人名)で何万件とあります。
その連続データに１行ずつ全てに空白行を挿入したいのですが、データの量が多すぎて一行ずつの挿入が困難です。何か方法はあるのでしょうか？

回答No.7

imogasi · ベストアンサー

#2の方法が簡便で良いと思います。
あえて関数を使うなら
B1に　=IF(MOD(ROW(),2)=0,"",INDEX(A:A,INT(ROW()/2)+1))
と入れてENTER
B1:最終下セルまで範囲指定し、CTRLキーを押しつつ、数式バー部でENTER
これで
鈴木

田中

木村

木下
・・
のようになります。
B列でデータを範囲指定し、自分自身のセルに、「形式を選択して貼り付け」ー値で式を消す。
多くのセルの範囲指定を簡便にするには、名前部分に番地入力することとSHIFTキーを押しつつ、を活用のこと。

お礼

ありがとうございます。できました！
この式を作ることがどうしても出来なかったのですが、
このIF式を作れるのはスゴイです。
尊敬してしまいます。
助かりました。

回答No.6

myi333

このままでは５行目から１行おきに空白行が入ります。コメントの部分の数字を適当に変更してください。
マクロ初心者なので動くと嬉しいです。

・・・・・・・・・・・・・

Sub 空白行の挿入()

Dim i As Integer

Rows("5:5").Select '空白行を入れたい開始行を指定します
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

For i = 1 To 3 '３は空白行を入れたい行数より-1を指定します
Selection.Offset(2, 0).Select '２行下を再選択
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Next i
End Sub

お礼

マクロ挑戦してみます。
心配が一つあります。
このデータ処理を一人でやっているのではなく、パソコンを３台使い３人での作業なのですが、
作ったマクロを共有することは可能なのでしょうか？

回答No.5

mu2011

マクロが簡単と思います。
見出し行ありとして、見出し行と１行目データは行挿入をしない様に３行目からとしています。
対象シートタブを右クリック→コードの表示→以下のサンプルコードを貼り付け→Ｆ５キー押下（処理時間が数秒掛ります）
因みにマクロの削除は貼り付けをクリア→VBE画面を終了して下さい。

■サンプルコード
Sub 行を挿入する()
開始行　=　3
列 = "A"
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 列).End(xlUp).Row To 開始行 Step -1
Rows(i).Insert
Next i
Application.ScreenUpdating = True
End Sub

お礼

マクロ、ちょっとチャレンジしてみます。

回答No.4

MackyNo1

すでに方法はいくつか出ていますが、データ数が多いなら実戦的には以下のような操作が簡単です。

補助列の1番上のセルに「1」2番目のセルに「2」と入力し、この2つのセルを選択しその右下にカーソルを合わせてダブルクリックします（連続番号の自動入力）。
そのまま。Ctrl+Cでコピーし、、Ctrl+↓キーで入力された一番下のセルを選択して、↓キーを押してから、Ctrl+Vで貼り付け、Ctrl+↑で一番上のセルを選択して、そのまま「データ」「並べ替え」（A↓Zのアイコンをクリック）します。
最後にこの補助列を削除してください。

お礼

ありがとうございます。
並べ替えて、空白行挿入ができました。

回答No.3

jyamo

名前を付けて保存でCSV（カンマ区切り）で出力。
秀丸エディタなどの正規表現が使えるソフトで開いて。
「\n」を「\n\n」に置換する。
そしてエクセルに貼ればいけそう。

お礼

秀丸エディタ・・・ソフトを持ってなく、試せませんでした・・・

回答No.2

keithin

手順：
Ｂ１からＢ４に「安藤」「井上」「上野」「遠藤」が並んでいるとする
Ａ１：Ａ２に数字の１と２を記入し，Ａ４までオートフィルドラッグして１，２，３，４の連番を並べる
Ａ１：Ａ４をコピーしＡ５に貼り付ける
全体をＢ列昇順で並べ替えると

作成途中：
１　安齋
２　井藤
３　上田
４　江川
１　以下空白
２
３
４

作成後：
１　安齋
１
２　井藤
２
３　上田
３
４　江川
４

＃言わずもがなですが
説明を簡単にするためにＡ列に連番を置きましたが，Ａ列に名前，Ｂ列に連番でも勿論問題有りません
作業後の連番列は勿論削除して構いません。

＃言わずもがなですが
＞何万とあります
Excel2003までの（およびExcel2007以降で互換モードのワークシートでは）エクセルの１枚のシートの行番号の最大数は65,536行です。１行ずつ空白行を挿入した結果がこの行数上限を超えるほどデータを抱えていたときは，もちろん一枚では納まりません。シートを分けるなど簡単な別の工夫が必要です。

お礼

ありがとうございます。
空白のデータを作って並べ替えですね。
気づきませんでした。
並べ替えたら確かに空白行ができました。

回答No.1

aokii

B列に連番で1,3,5,...と連番してから、データの最後の次の行のB列にに2,4,6,...と連番して、B列で並べ換えてはいかがでしょう。

お礼

速答をありがとうございます！
助かります。