エクセルシートの票データの置き換えについて、

質問

エクセルのシートに

（A1)から(D50)まで一覧表があり、それぞれ200個のセルに文字が入力されています。

これを別のシートに縦一列に並び替えたいのですが、

A1=（A1)
A2=（B1)
A3=（C1)
A4=（D1)
A5=（A2)
A6=（B2)
A7=（C2)
A8=（D2)
A9=（A3)
A10=（B3)
　・
　・
　・
A199=（C50)
A200=（D50)

出来れば簡易言語で、それで無理ならマクロでも結構です。

よろしくお願いします。

回答No.4

Wendy02 · ベストアンサー

こんにちは。

＞出来れば簡易言語で、それで無理ならマクロでも結構です。

こちらのカテゴリでお聞きになっているので、どうしても、VBAの回答になってしまうと思いますね。ただ、簡単な書き方というか、記録マクロに近い状態で書くと、以下のようになります。

Sub Macro1Revised()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = Worksheets("Sheet1")
Set Sh2 = Worksheets("Sheet2")
With Sh2.Range("A1:A200")
　.FormulaLocal = _
　"=OFFSET(" & Sh1.Name & "!$A$1,INT((ROW(A1)-1)/4),MOD(ROW(A1)-1,4))"
　 .Value = .Value
End With
Set Sh1 = Nothing: Set Sh2 = Nothing
End Sub

'-----------------------------------------------
'VBAらしくするなら、こんな風にもありかな？
'選択範囲が4角形で、1列にするなら可能なのです。
'-----------------------------------------------

Sub TransferValues()
Dim i As Long
Application.ScreenUpdating = False
For Each c In Worksheets("Sheet1").Range("A1").CurrentRegion
　i = i + 1
　Worksheets("Sheet2").Cells(i, 1).Value = c.Value
Next c
Application.ScreenUpdating = False
End Sub

'-----------------------------------------------

なお、余談ですが、マイクロソフト側のOfficeの「マクロ」のオフィシャルな定義ですが、『プログラマーズガイド』の中の「プログラミングの基礎」では、

マクロは、引数を持たないパブリックなSub プロシージャだけのことを指す、としています。すべてのマクロは、プロシージャではあるが、すべてのプロシージャがマクロであるとは限らない、マクロの記録機能を使って生成されるプロシージャとOfficeアプリケーションの[マクロ]ダイアログボックスから実行できるプロシージャは、すべてマクロである、と言っております。

パブリックなSub というのは、Public キーワードを付けて宣言しますが、端にその区別だけであって、パブリック・プロシージャを作成する時には、Public キーワードを使用する必要はありません、となっています。

知っている人は、百も承知の話ですが、もう、マイクロソフトのオフィシャルな書籍なんて顧みられることはありませんから、その内容が意外っていう人もいるかもしれません。

補足

皆さん有難うございます。実用化しました。

回答No.3

imogasi

>簡易言語
この言葉はエクセルでは使わないと思います。関数や関数式による
解法でしょうか。昔はＰＩＰＳとか、ＥＰＯＣＡＬＣＪとか色々もてはやされましたが。
＞マクロ
エクセルＶＢＡです。アクセスと違って、マクロは特別なものはなく、エクセルＶＢＡです。「マクロの記録」で使われているために、よく使われていますが。
ーーーー
本題
関数式による解法。
各列の最下行がばらばらだと、関数では難しい。そろっているとして、
例として、簡単のため、７行の表データにしました。
Ｓｈｅｅｔ１の
Ａ２：Ｄ８（Ａ１：Ｄ７ではないです、注意。式が変わるので）
Ａ－Ｄ列以外の列にたとえばＦ列以外に
Ｆ２に
=INDEX($A$2:$D$8,MOD(ROW()-2,7)+1,INT((ROW()-2)/7)+1)
と入れて、式をした方向に複写
1
2
3
4
5
6
7
8
9
10
11
12
13
以下略。
５０行なら
=INDEX($A$2:$D$51,MOD(ROW()-2,50)+1,INT((ROW()-2)/50)+1)
sheet2に作るなら
A2などに
=INDEX(Sheet1!$A$2:$D$51,MOD(ROW()-2,50)+1,INT((ROW()-2)/50)+1)

回答No.2

noname#22222

Private Sub CommandButton1_Click()
　　Dim I As Integer
　　Dim J As Integer
　　Dim R As Integer

　　For I = 1 To 50
　　　　For J = 1 To 4
　　　　　　R = R + 1
　　　　　　Worksheets(2).Cells(R, 1) = Worksheets(1).Cells(I, J)
　　　　Next J
　　Next I
End Sub

※Excel 門外漢ですので、参考程度に！

回答No.1

yakou850

自分のやり方を書かせてもらいます。
参考になればいいのですが・・・。

設定：Sheet1の200個のデータをSheet2に縦横変換して書く

For i=1 to 200
sheets("Sheet2").Cells(i,1) = sheets("Sheet1").Cells(1,i)
Next i

こういったソースではどうですか？