A列にあったものには１、C列にあったものには２

質問

シート１の内容をVBAをつかってシート２のようにしたいです。
つまり、シート１の２行目以降のデータをシート２のB列につなげて、
A列には　シート１の１行目に記載している番号をふっていきます。

もともとA列にあったものには１、C列にあったものには２、E列にあったものには３と振りたいのですが、どのようにマクロを書けばいいでしょうか？

[Sheet1]
　　A　 B　 C　 D　 E
1　1　 2　 3
2　aa aaa aaaa
3　bb bbb bbbb
4　cc cccc
5　 dddd

-----------------------------
[Sheet2]
A B
1 1 aa
2 1 bb
3 1 cc
4 2 aaa
5 2 bbb
6 3 aaaa
7 3 bbbb
8 3 cccc
9 3 dddd

回答No.1

mt2008 · ベストアンサー

UsedRangeでそのシートで使用しているセル範囲が判りますので、For Eachでそのセル範囲をすべて見ていきます。
1行目、またはデータなしの時は処理なし、それ以外はSheet2のA列に列位置、B列に値を入れていきます。
最後にSheet1にソートをかけてお望みの並び方にして終了。

Sub Sample()
　　Dim rTarget As Range
　　Dim rOne　　As Range
　　Dim nPos　　As Long

　　Set rTarget = Sheets("Sheet1").UsedRange
　　With Sheets("Sheet2")
　　　　nPos = 1
　　　　For Each rOne In rTarget
　　　　　　If (rOne.Row <> 1) And (rOne.Value <> "") Then
　　　　　　　　.Cells(nPos, 1) = rOne.Column
　　　　　　　　.Cells(nPos, 2) = rOne.Value
　　　　　　　　nPos = nPos + 1
　　　　　　End If
　　　　Next rOne
　　　　If nPos > 1 Then
　　　　　　.Sort.SetRange Range("A1:B" & (nPos - 1))
　　　　　　.Sort.Header = xlNo
　　　　　　.Sort.Apply
　　　　End If
　　End With
End Sub

補足

ありがとうございます。
無事できました。
ソートに関しては、下記のような並びの規則で毎回行いたいのですが、マクロを走らせた時点でソートも反映させることはできないでしょうか？

1 aaa
1 bbb
1 ccc
2 abc
2 abcd
3 aaaa
3 bbbb
3 cccc
3 eeee

回答No.3

mt2008

> ソートに関しては、下記のような並びの規則で毎回行いたいのですが、マクロを走らせた時点でソートも反映させることはできないでしょうか？

マクロの中で最後にソートを行っているはずですが並び変わっていませんか？
並び変わっていないとしたらどのようになっていますか？

お礼

すいません、もう１度実行してみたらうまくできました！

回答No.2

mt2008

ANo.1です。
よくよく質問をみたら、Sheet2のA列に入れるのはSheet1の1行目に入っている値でしたね。
失礼しました。
以下のように変更してください。

.Cells(nPos, 1) = rOne.Column
↓
.Cells(nPos, 1) = Sheets("Sheet1").Cells(1, rOne.Column).Value