- ベストアンサー
excelの並び替え
WWolfの回答
- WWolf
- ベストアンサー率26% (51/192)
ベタなマクロですが Sub test() With Worksheets(1) For i = 0 To 65535 / 15 Worksheets(2).Cells(i + 1, 1).Value = .Cells(i * 15 + 1, 1).Value Worksheets(2).Cells(i + 1, 2).Value = .Cells(i * 15 + 3, 1).Value Worksheets(2).Cells(i + 1, 3).Value = .Cells(i * 15 + 15, 1).Value If .Cells(i + 1, 1).Value = "" Then Exit For End If Next End With End Sub
関連するQ&A
- エクセルの並び替えについて！！
エクセルで住所録を作りたいのですが、いい方法があれば教えてください。 規則的にならんでいるので、できそうな気がするのですが、わたしの知識では無理です！ 現時点でのならび順は以下の通りです。 「会社名1 （空欄の行） 住所 備考 電話番号 （空欄の行） （空欄の行） 会社名2 （空欄の行） 住所 備考 電話番号 （空欄の行） （空欄の行） 会社名3 ・ ・ ・ 」 これを 「会社名1 住所 備考 電話番号 会社名2 住所 備考 電話番号 会社名3 住所 備考 電話番号 ・ ・ ・ 」 というように並べ替えたいです。 手動で切り貼りするには膨大な量で8000社分くらいあるので、エクセルの機能でいい方法があれば教えていただきたいです！よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- エクセルのデータ加工
エクセルのセルで、縦に1行目名前A、2行目住所A、3行目電話番号A、4行目名前B、5行目住所B、6行目電話番号B・・・、という具合に並んでいるデータを横に1列目1行目名前A、1列目2行目名前B、2列目の1行目住所A、2列目の2行目住所B、3列目の1行目電話番号A、3列目の2行目電話番号B、という風に加工したいのですが、一つ一つセルを移動するのではなく、なにか良い方法はありませんでしょうか？ちなみにデータは１０００件ほどあるのですが。
- ベストアンサー
- その他（インターネット・Webサービス）
- Excel シート間のデータの照合
Excelで、シート間のお客様データ（だいたい各1万件）を照合します。下記は現在の照合方法ですが、これでは時間がかかるうえ手作業が多く発生しミスにつながります。頻繁に行う作業なので、関数でも、マクロでも、とにかくもう少し簡単にできる方法がありましたら、どうぞご教授ください。よろしくお願いします！！ 【目的】 シート「sheet2008」には2008年度のデータ。シート「sheet2007」には「sheet2008」と同じ形式の2007年度のデータが入っています。シート「sheet2008」に、そのお客様の2007年度の担当営業マンを表示させたいのです。 【例】 列A（電話番号）： 011-231-1112 列B（名前）：佐藤 一郎 列C（住所）：北海道札幌市中央区北1-1-1 列D（担当営業マン）：鈴木 新規の列（2007年度の担当営業マン）：鈴木 ・「sheet2008」「sheet2007」はほぼ同じデータですが、一部のお客様は名前が変わっていたり、住所が変わっていたりします。 ・「sheet2007」にないお客様が「sheet2008」にあったり、その逆があったりして、各シートのデータ件数は一致しません。 ・名前が同じでも住所が違うデータ、電話番号が同じでも担当営業マンが違うデータは別者として扱います。 ・「顧客ID」のような“必ずユニークな情報”は存在しません。 【現在の照合方法】 （1)「sheet2008」の各列の前に空白列を挿入する。 （データの1行目はタイトル行…B1：電話番号／D1:名前/F：住所／H：担当営業マン） （データの2行目以降はデータ） 列A（空白行）： 列B（空白行）： 011-231-1112 列C（空白行）： 列D（名前）：佐藤 一郎 列E（空白行）： 列F（住所）：北海道札幌市中央区北1-1-1 列G（空白行）： 列H（担当営業マン）：鈴木 （２）「sheet2007」を列Aの電話番号で昇順に並べ替える。 （３）「sheet2008」の電話番号が「sheet2007」にあるかを調べる。 A2：「=IF(B2=(VLOOKUP(Sheet2008!$B2,Sheet2007!$A:$D,1,0)),"○","▲")」 （４）（３）で調べた「sheet2008」の電話番号と同じ行にある名前／住所が「sheet2007」にあるかを調べる。 C2：「=IF(D2=(VLOOKUP(Sheet2008!$B2,Sheet2007!$A:$D,2,0)),"○","▲")」 E2:「=IF(F2=(VLOOKUP(Sheet2008!$B2,Sheet2007!$A:$D,3,0)),"○","▲")」 （５）電話番号／名前／住所がすべて一致するデータについて、「sheet2007」にある担当営業マンの値を列Gに表示させる。 G2:「=IF((AND(A2="○",C2="○",E2="○"))=TRUE,(VLOOKUP($B2,Sheet2007!$A:$D,4,0)),"▲") （６）"▲"やエラー値で表示される計算結果について、目視で確認する。 （終了）
- ベストアンサー
- オフィス系ソフト
- 別シートのデータを抽出して並べ替えたい
シート１のＡ列だけに１行飛ばしで名前、住所、電話番号のデータが入っています。ついでに、次の情報との間は２行飛ばしになっています。 Ａ Ｂ ―｜―――――｜―――――― １｜名前ａ ｜ ２｜ ｜ ３｜住所ａ ｜ ４｜ ｜ ５｜電話番号ａ｜ ６｜ ｜ ７｜ ｜ ８｜名前ｂ ｜ といった感じです。 このデータを下のように、シート２に綺麗に並べ替えたいのですが… Ａ Ｂ Ｃ ―|―――――|―――――|―――――――｜ １| 名前ａ | 住所ａ | 電話番号ａ ｜ ２| 名前ｂ | 住所ｂ | 電話番号ｂ ｜ ３| 名前ｃ | 住所ｃ | 電話番号ｃ ｜ ひとつずつコピペで移そうと考えていたのですが、データが何百件と増えてしまったため困っています。 簡単にできる方法があれば教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル並べ替え教えてください
エクセルに詳しい方教えてください、お願いします。 シート1のA1セルに名前B1に住所C1に・・２行目以降も同じようにデータを入力し 各列の最後に移し変えたい行データに○を入力したものを、丸印の行データのみを、シート２の１行目から順番に移し変えが出来るようにしたいのですが A B C D E １ 名前 住所 電話 データ ○ ２ ３ ○ ４ １行目と３行目の○をつけた行データを別のシートの１行目、２行目と順番に移し変える方法を教えてください。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Excelでの並び替え
Excel2002です。 香典帳を作成しています。 A列 名前 B列 住所 C列 金額 D列 備考 です。 それで、入力が終わったのですが、後からみる場合、名前が五十音順になっていたほうが見易いので、そのようにしたいのでですが、そのような事は出来ますでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセル 複数シートのデータをまとめたい
他の質問を参照したのですが、できないのでお願いします。 新しいシート（ブックでもいいです）に次のデータを ひとまとめにしたい。 外国語テストのデータです。 (1)ひとつのブックにシートが十枚ある (2)列ａ２～ｈ２ 行２～２９までデータがある。 (3)列ａ番号（ａ２が１、ａ２９が２８） 列ｂ空欄 列ｃ日本語 列ｄ外国語 この構造を倍にしているのでａ～ｈにデータが並んでいる。 これを、 つまり、８×２８のデータが各シートにあるわけですが 【ひとつ】 できればシート１のデータの下 ２９行目からシート２のデータ、５８行目からシート３… というように並べたい。 【ふたつ】 更にできるならａ～ｄの下にｅ～ｈを持ってきて ４×５６の並びにして ５７行目からシート２のデータ…というように並べたい。 データの並びは列ａ列ｅの番号順を保持できたらうれしいです。 どうぞよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルのデータ並び替えについて教えてください。
エクセルのデータ並び替えについて教えてください。 セブン エクセル２００７ です、初心者ですよろしくおねがいします。 １行目に表題（○○会名簿）と入力 Ａ列とＢ列を結合して中央揃えしました。 ２行目にＡ例は名前 Ｂ列は住所と入力 ３行目からは上記に添い名前、住所と入力してから、数行を過ぎたところで 名前のＡ列昇順にデータを並びかえようとしたら、１行と２行目も混ざり並び替えられました。 ３行目以下を並び替えすることはできないのでしょうか？ 方法を教えてくださいませ
- ベストアンサー
- その他([技術者向] コンピューター)
- ExcelのVBAについて
ExcelのVBAについて VBA全くの初心者です。 以下のような処理を行いたいのですが、どなたかご教授をお願いします。 以下のように支店(1)～(3)のシートがあります。 １．入力シートに調べたい商品Ｎｏ・商品名・備考を入力する（複数行あり） ２．マクロを実行すると、商品Ｎｏを検索対象として支店(1)～(3)シートをチェックし、 一致しない行を不一致データシートに出力する もう一つ別のマクロで、 １．入力シートに調べたい商品Ｎｏ・商品名・備考を入力する（複数行あり） ２．マクロを実行すると、商品Ｎｏを検索対象として支店(1)～(3)シートをチェックし、、 一致する行を一致データシートに出力し、Ｄ列に対象データがあるシート名を表示する ※可能でしたら、Ｅ列に対象データがある行番号も表示する -------------------------------- シート名:支店(1) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ０１１ 商品Ａ 備考Ａ ００９ 商品Ｂ 備考Ｂ ０１５ 商品Ｃ 備考Ｃ -------------------------------- シート名:支店(2) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ００８ 商品Ａ 備考Ａ ０２３ 商品Ｂ 備考Ｂ ００４ 商品Ｃ 備考Ｃ -------------------------------- シート名:支店(3) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ００７ 商品Ａ 備考Ａ ０３３ 商品Ｂ 備考Ｂ ０１８ 商品Ｃ 備考Ｃ -------------------------------- シート名:入力シート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに複数行入力する -------------------------------- シート名：不一致データシート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに出力される -------------------------------- シート名：一致データシート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに出力される
- 締切済み
- Visual Basic
- Excel 対象行のみ別シートに表示したい！
こんな事できますでしょうか？？ Sheet1に住所録の表を作成したしました。 A列 郵便番号 B列 住所 C列 名前 A列に郵便番号が、入っている行のみSheet2に表示したいのですが・・・ その際、歯抜けではなく空欄行が出来ないようにしたいのです。 おわかりの方教えてくださーい！
- ベストアンサー
- オフィス系ソフト
お礼
素早い返答ありがとうございます。 マクロですね。私のレベルでは難しいかと思っていましたが、 具体的に書いていただいたので 後でやってみようと思います。 ありがとうございました。