• 締切済み

エクセルでこんなことがしたいんですが・・・

ham_kamoの回答

  • ham_kamo
  • ベストアンサー率55% (659/1197)
回答No.5

みなさま関数や並び替えなどでやる方法を紹介されているので、あえてマクロでやる方法で回答します。 Sheet1に整形前の表があり、Sheet2に整形後の表を転記するとします。 Alt+F11でVBAの画面を開き、左側のツリーからブック名を選択し、右クリックから「挿入」>「標準モジュール」を選択して、右の画面に以下のマクロをコピーして貼り付けてください。(マクロ中の"Sheet1","Sheet2"という箇所は、実際のシートに即して書き換えてください) Sub 並び替え()  Dim WS1 As Worksheet, WS2 As Worksheet  Dim i As Integer, CopyTo As Integer, Max As Integer  Dim R As Range    Set WS1 = Worksheets("Sheet1") '元のデータが入っているシート名  Set WS2 = Worksheets("Sheet2") '並び替えたデータを入れるシート名  WS2.Cells.ClearContents  WS2.Range("A1").Value = WS1.Range("A1").Value  For i = 2 To WS1.Cells(Rows.Count, 1).End(xlUp).Row   Set R = WS2.Columns("A").Find(What:=WS1.Cells(i, 1), LookAt:=xlWhole)   If R Is Nothing Then    Set R = WS2.Cells(Rows.Count, 1).End(xlUp).Offset(1)    R.Value = WS1.Cells(i, 1).Value   End If   CopyTo = WS2.Cells(R.Row, Columns.Count).End(xlToLeft).Column   R.Offset(0, CopyTo).Value = WS1.Cells(i, 2).Value   If CopyTo > Max Then Max = CopyTo  Next  WS2.Range("B1").Resize(1, Max).Value = WS1.Range("B1").Value End Sub その画面でF5キーを押すか、Alt+F11でExcelの画面に戻ってAlt+F8からマクロを実行してみてください。Sheet2に整形後の表が作成されます。

関連するQ&A

  • エクセルでこのような事ができますか?

    エクセルでマクロとか使わずに簡単に以下の作業ができる方法がありますか?      A      B 1   田中 2   山本 3   中村 4   岡田 5   鈴木      ↓   A列にずっと1000人ぐらいの名前がある。   このシートをもとに下のような1から6の番号をB列につけたシートを   作りたいのですが・・・      A      B 1   田中     1 2   田中     2 3   田中     3 4   田中     4 5   田中     5 6   田中     6 7   山本     1 8   山本     2 9   山本     3 10  山本     4 11  山本     5 12  山本     6 13  中村     1 14  中村     2      ↓    6000行まで入ることになります。

  • EXCELでの項目別集計

    皆さんのお知恵をお貸し下さい。 複数行、複数列にまたがって名前が入力されています。 名前ごとの集計をとりたいのですが、 どうやったらよいでしょうか 田中  山本  斉藤      斉藤  伊藤 山崎  田中     これを 田中  2 山本  1 斉藤  2 伊藤  1 山崎  1 という風に集計をとりたいのですがピボットテーブルではうまくいきません。 名前は特定できるものでなくいくつも種類があるのでCOUNTIFでは対応できません。 何か用意方法はないでしょうか よろしくお願いいたします。

  • エクセルでの重複データの抽出とフラグ

    エクセルでのデータの作成で困っております 下記のように「送り主」と「届け先」の重複データを抽出し数字を与えたいのですが、どうしてよいか判らず困っております。 教えて頂けますでしょうか ギフト配送先のデータ抽出 送り主     届け先  商品 田中太郎  1 佐藤花子(りんご1個) 田中太郎  1 佐藤花子(みかん1個) 田中太郎  1 佐藤花子(バナナ1本) 田中太郎  2 山本○子(みかん1個) 田中太郎  2 山本○子(バナナ1本) 山本○次  1 鈴木△子(りんご詰め合わせ) 山本○次  2 高橋×子(みかん詰め合わせ) 山本○次  3 田中□子(りんご詰め合わせ) 宜しくお願い致します

  • エクセルで間違いを修正したい。

    知人の代筆で質問してます。 エクセルで名前のリストを作ったそうです。 1-田中 2-鈴木 3-橋本 4-川上 ・・・ ・・・ 999-吉田 1000-川島 本当は数字の部分と名前の部分を違う列に分けて作らなければいけなかったのに、彼はエクセルを良く知らなかったため 「1-田中」のように一つのセルに手打ちで記入したそうです。 しかも、これをすでに1000人分手打ち入力したそうなのですが、 1- 2- 3- 4- という 「数字-」 の部分だけを消したいそうなのですが、それは可能でしょうか? よろしくお願いします。

  • EXCELで違う文字を一度に消去(置換)する方法について

    EXCELでの置換の方法についての質問です。 例えば、 田中(23) 山本(21) 浅野(25)  ・  ・  ・ といった風にセルが並んでいます。 この、(23)、(21)、(25)といった、かっことその中の文字を一度に消したいのですが、どうすればよいでしょうか? もし、お分かりになる方がいらっしゃいましたら、 ご回答、よろしくお願いします。

  • エクセルで二つの表を一つに纏める方法は

    エクセル2007で作成した二つの表を一つに纏めたいのですが、何か方法はございますでしょうか? サンプル1のファイル  A列   B列 山本太朗,東京都 鈴木花子,静岡県 田中太朗,大阪府 サンプル2のファイル  A列   B列 田中太朗,男性 鈴木花子,女性 山本太朗,男性 この二つのファイルを以下のように一つの表に纏めたいのですが 共通項目はA列の名前で並び順に規則性はありません。  A列   B列 C列 山本太朗,東京都,男性 鈴木花子,静岡県,女性 田中太朗,大阪府,男性 エクセルでは厳しいようであれば他の方法を ご教授いただけるとありがたいです。 以上、宜しくお願い致します。

  • エクセルで列が上下にずれないようにしたい

    エクセルで例えば、住所録を作るとします。 名前  住所    電話 田中  東京    999 芳田  大阪    888 このような表で、電話の列が誤操作で次のようにずれたとします。 名前  住所    電話 田中  東京     芳田  大阪    999             888 そうすると、吉田さんの電話番号が間違いになってしまい困ります。 田中さんや芳田さんの横方向の並びは絶対にずれないようには出来ないでしょうか? ソートして、田中さんを芳田さんの下にくるような、並べ替えの操作は出来るようにしておきたいのですが。

  • Excelで表から抜き出す方法!教えてください。

    Excel2002を使用中で、質問があります。 ぜひ教えていただきたいです! よろしくお願いします。 下記のような形で表をもっています。 ----------------------------------- 名前    部門    取得資格  田中    営業部   情報処理2種 田中    営業部   シスアド 山本    管理部   簿記 山本    管理部   シスアド 鈴木    システム部  シスアド  ・       ・        ・  ・       ・        ・  ・       ・        ・ ------------------------------------ 約1000行近くあります。 このように、一人につき、複数の資格を取得している場合はその名前がまたほかの行で登場する形です。 今回やりたいのは、この中で、たとえば 「シスアドの資格だけをもっている人」を抜き出したいのです。 上の例ならば、複数持ってる田中さんや山本さんではなくてシスアドだけの鈴木さんを抜き出したいということす。 どんなふうにやればいいのか、関数なのか、、オートフル? なのか、それともマクロを使わないといけないのか。 まったくわかりませんので、 どうかどうか教えてください!!! よろしくお願いいたします。お待ちしています。

  • 京都河原町周辺にあるメンズ・アメカジ系の店

    はじめまして。ご質問させて下さい。 今度22日に彼氏と京都にいきます。 私たちは遠距離恋愛で、あいだの京都で会おうとなりました。 その日はお互いのクリスマスプレゼントを買うんです。 私は彼にメンズの服を買ってあげようと思ってます。 でも河原町周辺のメンズの服屋さんはわかりません。 系統はお兄とかキレイ目ではなく、アメカジっぽいやつとか、ニットセーターなど着る系を買ってあげる予定です。 河原町周辺は 阪急百貨店、高島屋、OPA ビブレ 藤井大丸があるとこまでは調べたのですがどこに絞ってよいかわかりません。 半日しかいられないので、時間をかけられなくてピンポイントで効率よく行きたいんです。あと寺町通りに服があると聞きました。 メンズの服屋さんの名前もよくわからないので、 オススメのはお兄とかキレイ目ではなく、アメカジっぽいやつとか、ニットセーターなど着る系の店がある場所と店名をよかったら教えていただけませんか。ちなみにあまり高額はムリなので、高島屋や阪急百貨店はムリかなとおもっています。 なんだか注文が多くてすみません。 よろしくお願いします。

  • エクセルの並べ替えについて

    いつもお世話になっています。 エクセルの並べ替えについて教えてください。現在、ある表を作っています。 例えば、A店山本 B店田中 C店佐藤などです。人数が、200人以上いて、名前順にも店舗順にもなっておらずかなり見づらいものです。そこでエクセルで並べ替えようとしたのですが、まず、店舗順の名前順にしようとしたのですが、店舗順はできるのですが、名前順にすると、全ての名前を音読みしてしまいます。加藤さんの後ろに丸山さんが来てしまいます。何とか入力した名前順にはできないものでしょうか。 やり方がありましたら、お助けください。