- ベストアンサー
Excel2003で縦並セルを横並びに
imogasiの回答
エクセル関数は、データ内容の組み換えは苦手です。計算用に開発されていて、きの聞いた関数が無いのです。 関数でやってみましたが、随分複雑になりました。 ーー それでVBAでやってみて、載せます。 標準モジュールにコピペして実行。 No列(A列)でソートしてあることが必須。 Sub test02() Dim sh1, sh2 As Worksheet Set sh1 = Worksheets("Sheet1") Set sh2 = Worksheets("Sheet2") d = sh1.Range("A65536").End(xlUp).Row MsgBox d m = sh1.Cells(2, "A") sh1.Cells(2, "A").Copy sh2.Cells(2, "A") k = 2: L = 2 For i = 2 To d If sh1.Cells(i, "A") = m Then sh1.Cells(i, "B").Copy sh2.Cells(k, L) L = L + 1 sh1.Cells(i, "C").Copy sh2.Cells(k, L) L = L + 1 Else k = k + 1 sh1.Cells(i, "A").Copy sh2.Cells(k, 1) sh1.Cells(i, "B").Copy sh2.Cells(k, 2) sh1.Cells(i, "C").Copy sh2.Cells(k, 3) L = 4 m = sh1.Cells(i, "A") End If Next i End Sub ーー 例データ Sheet1で No1 1 データ1 11 No1 2 データ2 12 No1 3 データ3 13 No2 1 データ4 21 No2 2 データ5 22 No3 1 データ6 31 No3 2 データ7 32 No3 3 データ8 33 No3 4 データ9 34 No4 1 データ10 41 No5 1 データ11 51 結果 Sheet2 No1 1 データ1 2 データ2 3 データ3 No2 1 データ4 2 データ5 No3 1 データ6 2 データ7 3 データ8 4 データ9 No4 1 データ10 No5 1 データ11 >データは種類により下地の色、フォント色を変えてますがこれをそのまま移行したいです。 関数の回答に対し、こう言うのは、エクセルの関数の特徴・本質を知らない人の言うことです。 関数で書式を移したりできません。 上記VBAはその点考慮しましたが。
関連するQ&A
- 横並びの一定の連続セルを立て並びに変えたい。
横並びの一定の連続セルを立て並びに変えたい。 D2/E2/F2でひとつの項目があり、横並び同列にG2/H2/I2...と一定の連続セルが並んだデータがあります。これをD2/E2/F2の次の行に縦並びでD3/E3/F3として別のタブにコピーしたいのですが どうすればいいですか。一項目ずつコピペでもいいのですが、元の横並びデータが膨大なので 一発でできる方法があるのなら教えていただきたいのでよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 画像が横並びになりません
htmlでページを作っているのですが、画像が縦並びになってしまいます。横並びにしたいのですがどうすればいいのでしょうか。 □□□ □□□のような感じです。
- 締切済み
- その他(暮らし・生活お役立ち)
- 横並びのテキストデータを縦並びに変更する方法
どなたかご存知の方がいらっしゃいましたら,教えてください。 --------------------------------------------- 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ・・・ --------------------------------------------- のように横並びに配列されたテキストデータを, ----------- 1 2 3 4 5 6 ・ ・ ・ ----------- のように縦並びに変更したいのですが,操作方法がわかりません。 エクセルに変換?とかでしょうか。 よろしくお願いします。
- 締切済み
- HTML
- ulやolのリストを横並びに表示したい
初心者です。 題名の通りなのですが、普通にリスト表示すると、縦並びになってしまいますが、 これを横並びにする方法を教えていただけないでしょうか。 よろしくお願いいたします。
- ベストアンサー
- CSS
- ブログの画像を横並びにUPしたい
teacupブログにマジカルメーカーで画像をUPしています。 大きいものは縦並びでいいのですが、小さくしたものを横並びに載せる方法はありますか?それから、今は文章を書いた下に画像を載せてその下に文章を書いて…という感じですが、画像のみを右側に寄せるとか、文章と画像を横に並べるとか、初心者にもできますか?教えてください。
- 締切済み
- ブログ
- アクセス⇔エクセル データの移動
エクセルでは横並び、アクセスでは縦並びで持っているデータがあるのですが、 エクセルからアクセスにエクスポートする場合は追加クエリで済むのですが、 アクセスの縦並びのデータをエクセル用に横並びにしてエクスポートするにはどの様にすればよいでしょうか? IDごとに横並びにしたいのですが、分かる方お願いします。
- ベストアンサー
- オフィス系ソフト
- 横並びのデータを縦1列に並びかえる
横に月、縦に時間項目の表があります。 元データを残した状態で横に並んでいるデータを縦に並べる方法を教えてください。 1月のデータの下に2月データを並べる 2月の下に3月をもってくる。 上記の繰り返し ただし、表の上段には表タイトルと項目があります。 サンプルデータを添付します。
- ベストアンサー
- Excel(エクセル)
- Excel2002 セルの結合
Excel2002で2列にデータが入っております。 この2列を結合して、一緒のデータを作成したいのですが、その方法はありますでしょうか? また、このデータは漢字です。 例えば、 合合 | 圧圧 | 見見 | 荘荘 | を 合合圧圧 | 見見荘荘 | に変更したいのです。 ぜひ、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルで横に並んでいるデータを縦に並べる
横並びの表が3表あります。 1表から3表に4項目のデータがあります。最上段の行から順番に縦に並べ方法を教えてください。 切り取りで貼り付けはしない。 コピーの貼り付けはしない。 ファィルを添付しますのでよろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- エクセルで横並びの複数データを縦の一本のデータにしたい
こんにちは。宜しくお願い致します。 A B C 1 静岡 埼玉 2 福島 東京 愛媛 3 青森 4 長崎 徳島 愛媛 5 東京 千葉 6 秋田 兵庫 大阪 . . . 例えばこういう形で好きな都道府県の上位3つの解答がそれぞれあったとします。(1個の人もいるし、2個の人もいます) これを別のシート(同じシートの違う場所でも構いません)に縦並び1本で出したいときどうしたらいいでしょうか。 ★こういう風にしたい★ 静岡 福島 青森 長崎 東京 秋田 埼玉 東京 愛媛 徳島 愛媛 千葉 兵庫 大阪 . . ※好きな県などが人によって重複していても構いません、また順不同でもいいです。(縦並びのデータに東京が20個あってもよいということ) 形式を選択して貼り付けで行列を入れ替えるではうまくいかないです。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
有難うございました。 VBAに未だ慣れてなく、理解するのに、時間が掛かりそうです。 じっくりと取り組みます。 お世話になりました。