エクセルで一行（列）ずつ挿入するのを１発でする方法

質問

を教えてください。
学習成績一覧表を、１学期から３学期までのものを一つにまとめたいのです。
例えば、Ａ１セルから始まって横に（Ｂ１，Ｃ１・・・と）児童名が入っているとします。
この児童名と児童名の間に２列ずつ間を空けたいのです。つまりＡ１セルに出席番号１番の子の名前が入っていたとしたら、Ｂ列とＣ列を空白の列にし、Ｂ１セルに入っていた児童名がＤ１セルになるようにしたいのです。
上手く説明できませんが、分かっていただけるでしょうか？
どなたか、よろしくお願いします。

回答No.4

imogasi

関数で考えるが、質問者の別の質問の書きぶりからして、難しすぎる課題と思う。
操作の列挿入でやれば仕舞いでは。
例データ
Sheet1にA1:C1に
山田 木村 鈴木
Sheet2に
A2に　=INDEX(Sheet1!$A$2:$X$100,ROW()-1,INT((COLUMN()-1)/3)+1)ト入れて右方向に式を複写
山田 山田 山田 木村 木村 木村 鈴木 鈴木 鈴木・・
となる、
この各人の列で２、３番目を空白になるように変える。
=IF(MOD(COLUMN(),3)<>1,"",INDEX(Sheet1!$A$2:$X$100,ROW()-1,INT((COLUMN()-1)/3)+1))
山田 ーー 木村 ーー 鈴木
100行やX列は適当に変えることa

回答No.3

bin-chan

「一発で」といっても多少の操作は必要です。
例として、児童さんが３人とします。（セルA1、セルB1、セルC1）
行２と行３は空白であるとします（もし何かあるなら、２行挿入してください。後で削除できます）

１）セルA2に値１、セルB2に値２、セルC2に値３を入力。セルA3からセルC3まですべてに値０を入力
２）セルA2からセルC2までを選択して「コピー」
３）セルD2を選択して「貼り付け」（セルD2からセルF2に値が入ります）
４）セルD3からセルF3までのすべてに値１を入力
５）セルD2からセルF3まで(この場合は６セル)を選択して「コピー」
６）セルG2を選択して「貼り付け」（セルG2からセルI3に値が入ります）

これで以下のデータになります。
ＡＢＣ
１２３１２３１２３
０００１１１１１１

７）セルA1を選択し、Ctrl+Shift+Endキーを押下。
８）No.２さんの回答の方法で、列方向の並べ替え。キー１は行２の昇順、キー２は行３の昇順。

これで以下のデータになります。
Ａ　　Ｂ　　Ｃ
１１１２２２３３３
０１１０１１０１１

結果を確認できたら行２行３は削除してOKです。

回答No.2

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

列単位で並べ替える
添付図参照

回答No.1

tom04

こんにちは！
VBAでの一例です。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので、
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i As Long
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1
Range(Columns(i), Columns(i + 1)).Insert
Next i
End Sub 'この行まで

こんな感じではどうでしょうか？m(__)m