- 締切済み
エクセルVBAによる、行の整理
始めまして、よろしくお願いします。 シート１とシート２に次のようになっています。 シート１ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ９ １０１ ５ １０２ ３ １０３ ７ １０４ １０５ ・ ・ シート２ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ９ ３ ４ ・・・・ １０１ ５ ３ ２ ・・・・ １０２ ３ １ ０ ・・・・ １０３ ７ ５ ３ ・・・・ １０４ １０５ １０６ ９ ・・ １０７ ５ ・・ １０８ ３ ・・ １０９ ７ ・・ １１０ １１１ ９ ・・ １１２ ５ ・・ １１３ ３ ・・ １１４ ７ ・・ １１５ １１６ ・ ・ ・ ・ シート１、シート２のA列にはデーター銘の番号が。シート２のB、C、D・・・列にはデーターが入っています。シート１のA列データー銘の番号の追加（データー銘番号１）、順番を変え、マクロを実行すると シート１ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ３ １０１ ７ １０２ １ １０３ ９ １０４ １０５ ・ ・ シート２ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ３ １ ０ ・・・・ １０１ ７ ５ ３ ・・・・ １０２ １ １０３ ９ ３ ４ ・・・・ １０４ １０５ １０６ ３ ・・ １０７ ７ ・・ １０８ １ １０９ ９ ・・ １１０ １１１ ３ ・・ １１２ ７ ・・ １１３ １ １１４ ９ ・・ １１５ １１６ ・ ・ ・ ・ シート２の（100-103、106-109,111-114の３グループ）行ごとデーターすべてが、シート１A列のデーター銘番号順に整理したいと思います。実際は整理されるデーター銘番号や、行ごと（ここでは整理される100-103、106-109,111-114の３グループですが）の数はかなり多くなります。シート１で削除されたデーター銘番号は、シート２ではデーターすべてが削除されます。（ここではデーター銘番号５がそうです） 解る方、できる方、よろしくお願いします。
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17069)
何度も読んだがどうしたいのか良くわからない。 他の人なら判るのだろうか？ １ ２ ・ ９９（質問では縦書き）は行番号を書いたのか？ ＞シート１とシート２の関連はどうなっているのか？ ＞データー銘番号 これは意味的にはどんなものか。 ＞シート１のA列データー銘の番号の追加（データー銘番号１）、順番を変え、マクロを実行すると 何かマクロプログラムがすでに出来上がっているのですか？ それとも本質問の回答を教えていただいたとして、そのＶＢＡコードを実行すると下記になるようにしたいという事か。 ＞シート１で１が追加されると、自動的にマクロでシート２の同じ行に１を追加するのか？ ＞順番を変え はソート（並べ替え）をするということか ＞１００，１０６，１１１で3 7 1 9の並びが繰り返されているがなぜ（どういうところからそうなる？）？ ＞ここでは整理される100-103、106-109,111-114の３グループですが）の数はかなり多くなります。 グループを決めるのは空白行の存在か？ ーー もし回答が付かないようなら １歩１歩人間の操作でやるとすると、その操作のステップを、時間的な順序で文章化して、お礼欄で補足をしみてはどうだろう。
お礼
回答ありがとうございます。こちらの説明不足で確かに理解しがたかったかもしれません。 ＞１ ２ ・ ９９（質問では縦書き）は行番号を書いたのか？ そのとおりです。 ＞シート１とシート２の関連はどうなっているのか？ シート１の順番を買えればシート２のデーターの載っている行ごと、シート１の順番に”整理”させます。 ＞データー銘番号 数字で書いたために混乱させてしまったかもしれません。東京本社、名古屋支店、大阪支店と考えていただきたいと思います。 ＞シート１のA列データー銘の番号の追加（データー銘番号１）、順番を変え、マクロを実行すると マクロプログラムは出来上がっていません。 ＶＢＡコードを実行すると下記になるように”整理”させたいという事です。 ＞シート１で１が追加されると、自動的にマクロでシート２の同じ行に１を追加するのか？ ＞順番を変え はソート（並べ替え）をすることです。（データーには関数式が含んでいます。） ＞１００，１０６，１１１で3 7 1 9の並びが繰り返されているがなぜ（どういうところからそうなる？）？ ＞ここでは整理される100-103、106-109,111-114の３グループですが）の数はかなり多くなります。 グループは複数存在しますので、空白行で認識されて実行されればありがたいですが、（入力がめんどくさくなりますが）マクロでいくつか範囲を指定されるやり方でも問題はありません。 ーー できるようでしたら、よろしくお願いします。