VBA初心者です。

質問

VBA初心者です。
日付順に並べたいのですが、どのようにしたらいいのでしょうか。

【エクセル】日付順に別シートに並べるやり方を教えてください。

エクセルsheet1に下記の情報があります。

Ｂ（名前） Ｃ（記号） Ｅ～Ｈ（日付）
5 ばなな a 4/2 5/3 6/6
6 みかん b 4/8 5/7 6/6
7 りんご c 5/1 6/8 7/9
・
・
・
・
下にどんどん続きます。

sheet2
(c.5）くらいから日付、名前、記号
4/2 ばなな a
4/8 みかん b
5/1 りんご c
5/3 ばなな a
5/7 みかん b
6/6 ばなな a
6/6 みかん b
6/8 りんご c
7/9 りんご c
・
・
・
下に続きます。

このようにsheet2に日付順に並べつつ、横の情報もそのまま並べたいです。
（同じ日付はあります）

sheet1で日付がたて1列であればできるのですが、
横にもたくさんある中からの抽出はどうしてもできませんでした。

よろしくお願いいたします。

回答No.2

sumer45 · ベストアンサー

こういう事でしょうか？
但し、B列は無視してありますんで細かいところは直してください
また　この掲示板にVBEからこぴぺするとインデントが崩れます

Sub test()
Dim r As Long
Dim c As Integer
Dim Endrow As Long
Dim atai As Variant
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet

Set Ws1 = Worksheets("Sheet1")
Set Ws2 = Worksheets("Sheet2")

r = 1
Do Until Ws1.Cells(r, 1).Value = ""
c = 3
Do Until Ws1.Cells(r, c).Value = ""
atai = Ws1.Cells(r, c).Value
Endrow = Ws2.Cells(65536, 1).End(xlUp).Row + 1
Ws2.Cells(Endrow, 1).Value = atai
Ws2.Cells(Endrow, 2).Value = Ws1.Cells(r, 1).Value
Ws2.Cells(Endrow, 3).Value = Ws1.Cells(r, 2).Value
c = c + 1
Loop
r = r + 1
Loop
Set Ws1=Nothing
Set Ws2=Nothing
End Sub

お礼

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

色々と本を読みながら変えてみたりしましたが、
これは日付が出るようになっているのでしょうか？

どうやっても日付がでないです…
勉強不足で申し訳ありません。

回答No.3

nattocurry

VBA初心者ということですが、ある程度は理解できるということでしょうか？
#2さんの回答は理解できますか？

一応、マクロを使わない回答を。

「日付がたて1列であればできる」とのことなので、日付がたて1列の表を作る方法です。

ちなみに、日付の個数は、問題文から、E列からH列までの最大4つとしています。

セルJ5に
=INDEX($B$5:$B$7,INT((ROW()-5)/4)+1,1)

セルK5に
=INDEX($C$5:$C$7,INT((ROW()-5)/4)+1,1)

セルL5に
=INDEX($E$5:$H$7,INT((ROW()-5)/4)+1,MOD((ROW()-5),4)+1)

と入力して、J5:L5を下にコピぺすると、日付がたて1列の表ができます。

そのままだと中身が計算式なので、並び替えを行うと値も変わってしまいます。
その対策として、表全体をコピーして、「形式を選択して貼り付け」で「値」を貼り付けます。
すると、表の中身は計算式ではなく、値になるので、並び替えをしても値は変わりません。

元のデータで、日付が4つ未満の場合、日付の無いところは、たて1列の表では、1月0日になってしますが、そこは工夫して何とかしましょう。

お礼

お返事が遅くなり、すみません。

#2さんの回答はすべて理解できたわけではありませんが、
なんとなく理解できる程度です。

マクロでできなかった時は、nattocurryさんの回答でがんばろうと思いましたが、
また色々と調べできました。

マクロを使わない方法も教えてくださり、ありがとうございました。

回答No.1

kuma56

Sheet1の情報をいったんどこかスペースに
　B（名前）C（記号）E（日付）
5 ばなな　 a　 4/2
6 ばなな　 a　 5/3
7 ばなな　 a　 6/6
8 みかん　 b 　4/8
9 みかん　 b　 5/7
こんな感じにばらして一本にしてやれば可能では？

お礼

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

どこかスペースにはしないで、できればいっきにやりたいのです。