【再度】Excel、列を追加する方法を教えてください！

質問

こんにちは。
Excelの使い方で悩んでいます。

今、Ａ１～Ａ２００のセルまでテキストデータが入っています。
そのデータを編集しているところなのですが・・・。
各列に横列を追加しなくてはいけません。

Ａ１の下に４つ列を追加する
Ａ２の下に４つ列を追加する
　　　　・
　　　　・
　　　　・
　　　　・
Ａ２００の下に４つ列を追加する

というように、Ａ２００まですべてに４列ずつ追加します。

【現在】

　　Ａ　｜　Ｂ　｜　Ｃ　｜　Ｄ
-------------------------------------
１|あ
-------------------------------------
２|い
-------------------------------------
３|う
-------------------------------------
４|え
-------------------------------------
５|お
-------------------------------------
６|か
-------------------------------------
７|き

【列を追加する】

　　Ａ　｜　Ｂ　｜　Ｃ　｜　Ｄ
-------------------------------------
１|あ
-------------------------------------
２|　　　追加する
-------------------------------------
３|　　　追加する
-------------------------------------
４|　　　追加する
-------------------------------------
５|　　　追加する
-------------------------------------
６|い
-------------------------------------
７|　　　追加する

Ａ列にデータが２００も入っているので、２００回も『挿入』を繰り返すことになります。

とっても大変なので、簡単にやる方法があれば、教えてください。お願いします。

回答No.2

cyobin_man · ベストアンサー

では　マクロを使わない方法
まず　データーが２００までとして　列　AとBを　新たに追加します。

そして　Ａと　Ｂに以下のように数字を振ります
　Ａは　１から順に２００まで連番
　Ｂは　１のみ

　　Ａ　｜　Ｂ　｜　Ｃ　｜　Ｄ
-------------------------------------
１|　1　　　　1　　　あ
-------------------------------------
２|　2　　　　1　　　い
-------------------------------------
３|　3　　　　1　　　う
-------------------------------------
４|　4　　　　1　　　え
-------------------------------------
　　　以下最後まで同様

そしてデーターの最後の行以下に　追加する行を作成します。

　　　Ａ　｜　Ｂ　｜　Ｃ　｜　Ｄ
-------------------------------------
20１|　1　　　2　　　
-------------------------------------
20２|　1　　　3　　　
-------------------------------------
20３|　1　　　4　　　
-------------------------------------
20４|　1　　　5　　　
-------------------------------------
20５|　2　　　2　　　
-------------------------------------
20６|　2　　　3　
-------------------------------------
20７|　2　　　4　　　
-------------------------------------
20８|　2　　　5　　　
-------------------------------------

　と
　Ａは　１から順に２００まで数字を４つ繰り返しながら連番
　Ｂは　２から５までを　繰り返し

最後にデーターのソート
　第１キーを　Ａ列の　昇順
　第２キーを　Ｂ列の　昇順

　出来上がったら　Ａ・Ｂ列を削除。
　数字入力はオートフィルで一発で出来ますね。

　まずは　ダミーのデーターを作ってから　か　
　　　コピーを使ってやってください。

お礼

回答ありがとうございます。

教えていただいた方法でやってみました！
できました！できました！！
ありがとうございます。
並び替えって、今まで使ったことなかったんですが、便利ですね！

ありがとうございました。

回答No.12

beer55

こんにちは
A列にデータが入力されている行まで、B列に1～7までの番号を入力(1、2、3、4、5、6、7)
B8～B10セルに1.25、1.5 、1.75、 と入力
B8～B10セルを選択して下へオートフィル
(2、2.25、2.5、2.75、3、3.25、3.5、3.75、4・・・等になる)
2、3、4、5等の整数はB1からB7に入力したのとダブりますが4行挿入には必要です
B列を選択して、ツールバーの昇順で並べ替えアイコンをクリックする
以上

お礼

回答ありがとうございます。
No.２の方法でやりました。ありがとうございました。

回答No.11

jindon

No.9です。
質問よく読んでいませんでした。

Sheet2のA1に

=INDEX(Sheet1!$A$1:$Z$200,SMALL(IF(Sheet1!$A$1:$A$200<>"",ROW($A$1:$A$200)),ROW(A1)),COLUMN(A1))
として、Ctrl+Shift+Enter で確定してから必要分フィルライト（右方向へコピー+ペースト)

Sheet2のA2に
=IF(MOD(ROW(),5)=0,INDEX(Sheet1!$A$1:$Z$200,SMALL(IF(Sheet1!$A$1:$A$200<>"",ROW($A$1:$A$200)),INT(ROW()/5)+1),COLUMN(A2)),"")
として、同じく Ctrl+Shift+Enter で確定後フィルライト

後はA2の行（2行目）の必要分選択してフィルダウン。

お礼

再度、ありがとうございます。
やはり、Sheet2というのがわかりませんでした。

回答No.10

maruru01

こんにちは。maruru01です。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=919019

↑の質問はどうなったのでしょうか？
なんの前触れも無く、いきなり締め切って、何の説明もなく同じ質問を再投稿するのはどういうことでしょうか？
上記の質問の私の回答（No.4）は、試されたのでしょうか？

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=919019

お礼

maruru01さま、すみません！！
今、回答を拝見しました！！
せっかく回答いただいたのに、申し訳ありませんでした。

回答No.9

jindon

関数でSheet2に表示します。

基データの入力されたシートをSheet1として

１．下記の数式をコピー

=IF(ROW()=1,INDEX(Sheet1!$A:$Z,SMALL(Sheet1!$A:$A,1),COLUMN(A1)),IF(MOD(ROW(),5)=0,INDEX(Sheet1!$A:$Z,SMALL(Sheet1!$A:$A,INT(ROW()/5)+1),COLUMN(A1)),""))

2.Sheet2のA1をクリック→数式バーをクリック→貼り付けてください。

3.Sheet2のA1をクリックしてフィルハンドルを必要なだけ右+下方向へ

4.Sheet2をコピーしてそのまま形式を選択して張り付け→値にチェック

では？

お礼

回答ありがとうございます。
Sheet2とはなんでしょうか？
すみません、わかりませんでした。
No.２で教えていただいた方法でやりました。
ありがとうございました。

回答No.8

snoopy64

＃３です。
すいません、一部訂正します。
E201に=E1+1
ではなくて
E201に=E1+0.25
でした(>_<)

お礼

わざわざありがとうございました。

回答No.7

imogasi

ＶＢＡなら標準モジュールに
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
'----A
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
'-----B
j = 1
sh1.Activate
d = sh1.Range("A1").CurrentRegion.Rows.Count
For i = 1 To d
sh2.Cells(j, "A") = sh1.Cells(i, "A")
sh2.Cells(j, "B") = sh1.Cells(i, "B")
sh2.Cells(j, "C") = sh1.Cells(i, "C")
j = j + 5
Next i
End Sub
を貼りつけて実行すれ良い。
（自分自身の場合に向けて変更点）
sh2.Cells(j, "A") = sh1.Cells(i, "A")
sh2.Cells(j, "B") = sh1.Cells(i, "B")
sh2.Cells(j, "C") = sh1.Cells(i, "C")
Ａ，Ｂ、Ｃ列をうつしてますが
列を加えてください
Ｅ列なら
sh2.Cells(j, "E") = sh1.Cells(i, "E")
d = sh1.Range("A1").CurrentRegion.Rows.Count
はデータがＡ１より開始しているときです。
第３行目からなら
d = sh1.Range("A3").CurrentRegion.Rows.Count
とし、
For i = 1 To d
をFor i = 3 To d+2
にする。
Ｓｈｅｅｔ１に空白行を入れる方法もありますが、間違える惧れが大きいので、Ｓｈｅｅｔ２に実現。

お礼

回答ありがとうございます。
すみません、ちょっと理解できませんでした。
No.２で教えていただいた方法でやりました。
ありがとうございました。

回答No.6

imogasi

先ほど似たような質問が出て、締めきられたのでは？。
関数式による回答を。
ｓＨＥＥＴ１にデータがあるとして
ｓＨＥＥＴ２に望みの表を作ります
ｓＨＥＥＴ２のａ１に＝ｓＨＥＥＴ１！ａ１と入れる。
ｓＨＥＥＴ２のａ２に=IF(MOD(ROW(),5)=0,OFFSET(Sheet1!$A$1,INT(ROW()/5),0),"")と入れて、ａ３以下に式を複写します。ｓＨＥＥＴ１のデータの５倍の行まで
複写します。
ｂ列は=IF(MOD(ROW(),5)=0,OFFSET(Sheet1!$A$1,INT(ROW()/5),1),"")といれ複写
ｃ列は=IF(MOD(ROW(),5)=0,OFFSET(Sheet1!$A$1,INT(ROW()/5),2),"")と入れて複写です。
－－－－
あとｓＨＥＥＴ２をｓＨＥＥＴ２に値のみ複写して式を消しましょう。
ＶＢＡによる回答も出来ますが。

お礼

回答ありがとうございます。
＞先ほど似たような質問が出て、締めきられたのでは？
すみません。質問の仕方が悪かったので、締め切って再度質問させていただいております。

ありがとうございました。

回答No.5

lively-gon

こんにちは

制御文字を検索できる機能がある多機能なテキストエディタ（秀丸エディタなど）を使用する方法です．
Windows付属のNotepadでは使えませんのでご注意下さい．

A1からA200までのセルを選択して，クリップボードにコピーします．

それをそのままテキストエディタに貼り付けます．
---イメージ
あ[改行]
い[改行]
う[改行]
・・・
---

そのあと，「改行」を「５つの改行」に置換します．
---イメージ
あ[改行]
[改行]
[改行]
[改行]
[改行]
い[改行]
・・・
---

テキストエディタ内のすべての文字を選択してクリップボードにコピーして，それをExcelへ貼り付けます．

お礼

回答ありがとうございます。
こんな方法もあるんですね！
最近「置き換え」を覚えたばかりですので・・・
何かの機会に利用させていただきます。
ありがとうございました。

回答No.4

mshr1962

手作業には変わりませんがこんな方法もあります。
空いている列に1～200まで入力
（先頭の2行に1,2で下方にフィルハンドルでコピー）
その1～200をその下に4回コピーします。
その列で並べ替えを行えばご希望の通りになります。
最後にこの列を削除すればOK

お礼

回答ありがとうございます。
並び替えって、とても便利ですね！
これから活用していきます。
ありがとうございました。

回答No.3

snoopy64

横方向は列、縦方向は行といいますヽ(^。^)ノ
で、マクロを使う方法はすでに出ていますので、ソートを使う方法を。

未使用の列（ここでは仮にE列とします）に、1から200までの連番を振ります。
（E1に1、E2に2と入れ、E1:E2を選択し、右下の四角をE200までドラッグ）
E201に=E1+1と式を入れ、E201をE800までドラッグすると、E800に200.75となります。
E列を選択し、右クリック→コピー
E列を選択し、右クリック→形式を選択して貼り付け→値
全セルを選択（Aの左、1の上の部分をクリック）し、データ→並び替えで、E列昇順でソートします。
最後にE列の中身をクリアしてください。

頑張ってくださいヽ(^。^)ノ

お礼

回答ありがとうございます。
No.２の方法と同じような方法ですね。
ありがとうございました。