エクセルの表をラベルに変換

質問

エクセルで作った一覧表を、マクロで宛名ラベルのような表に
変換したいです。

たとえば、

　　　　　　A 　　　 B 　　 　 C
1列　　152-25　　　静岡県　　　松田
2列　　258-52　　　北海道　　　鈴木

のような表を

　　　　　　A　　　　　　B　　　　　　C
1列　　152-25
2列　　静岡県　
3列　　松田

のように変換することはできるでしょうか。
マクロ等初心者で、本を読んでもよくわかりません。
よろしくお願いします。

回答No.2

keithin · ベストアンサー

ご相談に書かれたような事なら例えば

sub macro1()
worksheets("Sheet2").range("A1:A3").value = application.transpose(worksheets("Sheet1").range("A1:C1").value)
end sub

とかでも十分です。

＃以下余談
このご相談のように一を聞けば二と三ぐらいはご自分で進められるなら、この程度の内容から次のステップをご自分で考えて、次また詰まったところで改めて新しいご相談で解決してもらうのが本当はベストです。

でも結局「丸投げ」で全部やってもらうつもりなら、そして折角マクロを使って「何かをしたい」なら、もうちょっと丁寧に具体的に「どういう状況から、どんな手順で、どんな結果が欲しい」のか、ヤリタイ事／できたらいいなの「段どり」を考えてからご相談を投稿してみるのも良いかも？しれませんね。

回答No.1

bin-chan

横一列のデータがSheet1にあるとして。

Sheet2のセルA1に式[=Sheet１!A1]を、
Sheet2のセルA2に式[=Sheet１!B1］を、
Sheet2のセルA3に式[=Sheet１!C1］を設定