• 締切済み

画像のように整列した表にするにしたいのですが

tom04の回答

  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.2

こんにちは！ 関数でもできないことはないと思いますが、 VBA向きの質問のようですので、VBAでの一例です。 画像のように元データはSheet1のA列1行目からあるとし、Sheet2に表示させています。 Alt+F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面のカーソルが点滅しているところに ↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）マクロを実行してみてください。 （Alt＋F8キー　→　マクロ　→　マクロ実行です） Sub Sample1() 'この行から Dim i As Long, j As Long, cnt As Long, wS As Worksheet Set wS = Worksheets("Sheet2") wS.Cells.Clear With Worksheets("Sheet1") For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row 'Sheet1のA列1行目～最終行まで★ For j = 2 To .Cells(i, Columns.Count).End(xlToLeft).Column 'Sheet1のB列～データが入っている最終列まで★ If .Cells(i, j) <> "" Then cnt = cnt + 1 wS.Cells(cnt, "A") = .Cells(i, "A") wS.Cells(cnt, "B") = .Cells(i, j) End If Next j Next i End With End Sub 'この行まで ※　関数でないので、データ変更があるたびにマクロを実行する必要があります。m(_ _)m

この回答がついた質問に戻る
回答 全件
>クラスは複数あると過程して（数百～数千）、また数字もこの画像ですと５…
非常に原始的(?)な方法を紹介しておきます。 ただし、此れは Exce…
  • noname#204879
    noname#204879
計算式なら H1 =IFERROR(INDEX(クラス,SMALL(I…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • 表のばらばらの文字列を1列にまとめたい　関数

    添付の左の表を右の表にしたいです。 (1)左の表には数式が入っていて、この他にもう一つある表のデータに該当すると1列ごとにSMとかNPとか表示されるようになっています。 (2)この左の表は実際には136列あるので、結果を印刷すると一枚に収まりきらないのです。なので、右の表のように、1列に表示したいのです。 (3)1行のうち、2個以上文字列が入ることもありますが、その可能性は低いので、とりあえず1行に1個ずつ出現すると考えてもらっていいです。（2個以上文字列が出現する場合も分かれば教えてください。） (4)関数でできませんか？　またはマクロでもいいです。

  • 画像を添付しています。

    画像を添付しています。 画像にある左の表を、右の表にレイアウトを変更することが できるでしょうか。 よろしくお願いいたします。

  • Wordで、「表」の中にある直線の整列

    Word2000です。 表（メニューの「罫線」-「挿入」-「表」で作ったもの。）があり、 その中に何本かの直線（「オートシェイブ(U)」の「線」で作ったもの。）があります。 ツールバーの「オブジェクトの選択」という白い矢印を押すと、 その何本かの直線を同時に選擇することができますが、 「図形の調整(R)」の「配置／整列」で 「左揃え」「右揃え」などをしようとしても灰色になっていて選擇することができません。 表の中にある何本かの直線を、「左揃え」「右揃え」などしたいのですが、 どうすればよいでしょうか。 なお、表の外にある直線は、上記の方法で「左揃え」「右揃え」などできます。

  • 変わった方法でセルの結合をしたい

    画像の左のような表で、横４つのセルの結合をしたいのですが、結合した後にいずれかの数字を残すのではなく、右の表のように数字を左からくっつけたものが欲しいです。 結合して元の表が無くなってもかまいませんし、新しく列を作ってそこに出力しても良いです。 どなたか、方法をご教授願えませんでしょうか。

  • ワードで挿入した表のインデント位置の変更

    前任者が作成したので変更の仕方がわかりません。(^_^;) 数字を入力したいのですが、表の中のカーソルの位置が左揃えになっていて、デリートキーを押してもカーソルの矢印はビクとも動きません。(>_<) そのまま数字を入力したら左方向に表の枡が長くなって行きます。(T_T) 上方のインデント位置も動いてくれません。(-_-;) どうしたら右揃えに変更できるでしょうか？<(_ _)>

  • Wordで画像（図）と表（罫線入り）を左右に並べるには？

    Wordで画像を左にいれ、その右に表を入れようとしたのですが。右側に表のあるところに、左に画像を挿入すると表が画像の下に移動し画像と表を同列にいれられません。どうすればよいのでしょう。画像をいろいろ動かしていたら、一応入ったのですが、今度は画像も表も動かせなくなりました。（図＝犬マ－ク）が作動しません。すこし図と表を移動したいのですが。

  • エクセルの文字整列

    先日、数式の入れ方を教えてもらい表を完成することが出来ましたが、新たな問題が発生しましたので教えてください。 参考URL、矢印部分の文字整列が数式を入れると段違いになり揃いません。左揃えは揃うのですが、見た目が悪いので、中央揃え又は右揃えにしたいので、アドバイスお願いします。 参考URL http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1156473446

  • 表の中の割合のバーを背景で付けるには

    表を作っていまして、その表には８０％や３５％のような割合の数字が入っています。 ８０％のセル（表の中の１つ）には左からバーが８５％くらいまでくるような処理を行いたいと思っています。もちろんバーの上には「８０％」の文字がcenterで乗るように。 イメージ的にはOffice 2007のエクセルでも同じような機能があったと思います。 backgroundでイメージは指定することができるのですが、この画像のサイズを変更してあげればいいのかなと考えていますが、サイズ指定の方法がわかりません。 知っている方、ご教授ください。

    • ベストアンサー
    • HTML
  • 縦に並んでいるデータを横並びに変えたい

    お世話になっております。エクセルの表で縦に並んでいる数字を横にしたいのです。添付の左の表のシートを参照して右の表に変更したいと思っているのですがどなたかご教授いただけませんでしょうか。エクセルは2010です。

  • 表のばらばらの文字列をまとめるマクロ　関数

    以前、同じ内容の質問を聞いたのですが、少し条件を変えて質問です。 (1)左の表には数式が入っていて、この他にもう一つある表のデータに該当すると1列ごとにSMとかNPとか表示されるようになっています。 (2)この左の表は実際には136列あるので、結果を印刷すると一枚に収まりきらないのです。なので、右の表のように、最短の列に表示したいのです。 (3)この例ではたまたま1行に1個ずつしか文字列が入ってないので右の表は1列ですが、1行に付き2個以上文字列が入ることもあります。5個以上はほとんどないです。 (4)関数でできませんか？　またはマクロでもいいです。 以前、回答でいただいた関数は =IFERROR(HLOOKUP("*?",$A1:$D1,1,FALSE),"") 又は =IF(COUNTIF($A1:$D1,"*?"),HLOOKUP("*?",$A1:$D1,1,FALSE),"") でしたが、これだと1行につき1個文字列があるときのみ可能です。 1行に付き2個以上文字列がある場合に、例えば空欄を削除して左に詰めるような感じでマクロでできないでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する