- ベストアンサー
エクセル2003のVBAで重複行削除
imogasiの回答
- imogasi
- ベストアンサー率27% (4737/17068)
既に、この丸投げに対するコードの答えは出ているようだが、こういうのは丸投げしないで、ロジックをどうすれば良いか、文章で書く勉強をすることをお奨めする。丸写ししていれば進歩しないよ。 ここが初心者に回答を教える便利コーナーになると困る。 １つの方法は 原シートをそのままに、別シートに結果を出すことにする。 原シートの行を削除するのはいろんな意味でコードが複雑になるから。 現シートで （１）A列＋B列の文字列をX列に作る。 （２）そのX列でソートする。 （３）直前の行を見ながら、X列が直前行と同じなら、結果シートに書きださない（何もしない）。 A A（現在） （４）ただし同じときは同じ行数（－１）を変数に記録する。 A－０ A－１ （５）X列が変わったなら、変わったと判った段階で A.直前の同じ行数が０の場合はそのまま書く。 A－０ X（変わった） A-０をそのまま書き出す。 B。同じ行数が１以上なら最終の行を書き出す。種類は空白。 Aー０ A－１ Aー2 X（変わった） A-2のみ書き出す。 こういうロジックで良いか、考えてみるのも勉強になるだろう。 ーー コードはそれから。 こういうタイプの課題は「ソート法」（「上記）とも言うべきものが役に立つ場合が多い（役立たないものもあろうが）。 バッチ処理では、コントロールブレークという手法で色んなとことに出現する。
関連するQ&A
- エクセル2003のVBAを教えて
エクセル2003のVBAを教えてください。 次の対象データで、(1)(2)(3)の作業が出来るエクセルVBAを教えて下さい。 (1)(2)(3)個々のVBAでお願いします。 ●対象データ：種類(A列)、文字(B列)、 データの行数：不特定なので、データのある最終行までとします。 ●教えていただきたい項目 (1)：種類だけを(C列)に取り出す。 (2)：種類の先頭に空白の行を3行入れて、追加の２行目の種類(A列)に文字(B列)を入れる。 (3)：種類が5行以上あるときは、5行ごとに空白行を追加する。 ●対象データ 種類(A列) 文字(B列) AA あああ BB いいい BB いい BB いいい CC うう CC うう DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ ●(1)のVBAの結果(このようになるVBAを教えてください。) (C列) AA BB CC DD ●(2)、(3)のVBAの結果(このようになるVBAを教えてください。) 種類(A列) 文字(B列) あああ AA あああ いいい BB いいい BB いいい BB いいい うう CC うう CC うう ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ
- ベストアンサー
- Visual Basic
- Excel 複雑なセル埋めのVBA
エクセルで入力済みのデータをテーブル形式にするためにVBAを組んでいますが突き当たりました、お知恵を拝借させてください。現在成形出来ているのは以下の状態です。 A列 B列 C列 1行 AA 2 1 2行 3行 BB 3 2 4行 5行 6行 7行 8行 9行 CC 2 3 10行 11行 12行 13行 14行 これを以下のようにB列を埋めたいと考えています。A列を埋めるVBAは当方で分かります。 A列 B列 C列 1行 AA 1 1 2行 AA 2 3行 BB 1 2 4行 BB 2 5行 BB 3 6行 BB 1 7行 BB 2 8行 BB 3 9行 CC 1 3 10行 CC 2 11行 CC 1 12行 CC 2 13行 CC 1 14行 CC 2 B1に2が入っていてC1に1が入っているときはB1から下へ1，2の連番を1回入れます、B3に3と入っていてC3に2と入っているときはB3から下へ1,2,3の連番を2回繰り返します、同じようにB9以降も処理しています。連番のスタートは必ず1で、現在B列に入っている数字が連番の最後に当たる数値でC列が繰り返し回数という事です。上の例ではB列を書き直していますが、新たにD列にB列に入れたい連番の列を作る方法でもいいと思っています。 もし表が崩れていたら済みませんでした。恐れ入りますがポインタでも結構ですのでご教授下さい、よろしくお願いします。
- 締切済み
- その他(業務ソフトウェア)
- エクセルＶＢＡでセル結合
いつもお世話になっています。 エクセル2003でＶＢＡを使って下記をしたいのでその、ＶＢＡ構文を教えて下さい。 特定の列のあるセルに文字が入っています。 （文字が入っている列は固定ですが、行番号はデータによって変わります。例えば、Ａデータの場合は「Ｊ３０」、Ｂデータの場合は、「Ｊ５５」だったりします。） この文字が入っているセルをＶＢＡで検索し、検索したセルを右隣のセルと結合します。（先ほどのＡデータの場合、Ｊ３０：Ｚ３０に結合します。） 更に、文字が入っているセルが２以上の複数の場合があります。（先ほどのＡデータの場合、「Ｊ３０」と「Ｊ４０」と「Ｊ４５」という感じです。文字が入っているセルの数はデータにより異なります。） 結合が終わり、このシートのデータがあるところだけに罫線を引きます。（このシートのデータというのは、前述の文字とそれ以外は、「数字」と「・」です。 ややこしいですが、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Excel マクロ VBA セル内で改行された文字列の分割
はじめまして。 ＥｘｃｅｌのＶＢＡ初心者で、ちょっと困っています。 （例） （１） セルＡ１に以下のような改行された文字列が入力されています。 【セルＡ１】 a aa aaa b bb bbb （２） セルＡ１内の文字列を３行毎に分割し、セルＡ２以降に表示させたい。 【セルＡ２】 a aa aaa 【セルＡ３】 b bb bbb ※ 今回の例ではセルＡ１に６行しかありませんが、実際に行数は決まっていません。 そこで以下のようなＶＢＡを見よう見まねで作り、１行毎の分割はうまくいったのですが、『３行毎に分割』ができません。 Sub 分割() Dim A, B, C A = Split(Range("A1"), Chr(10)) B = 0 For Each C In A B = B + 1 Range("A2").Offset(B - 1, 0).Value = C Next End Sub ご教授いただけると助かります。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA 文字数指定で置換
Excel VBA で、 (1) Sheet1のA1:A9の各文字列の3文字目から2文字を Sheet2のB1の文字列(bb)に変換する。 (2) Sheet1のA1:A9の各文字列の5文字目から2文字を Sheet2のC1の文字列(cc)に変換する。 とするには、どのようにしたら良いでしょうか？
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAで連番を振る。
A列が空白で、B列に1行目から***行目（毎回変わる）までデータが入力されている時、 A列に、1から***まで（Ｂ列のデータが終わるまで、連番を振るにはどんなVBAを かいたらいいのでしょうか？ お願いします。
- 締切済み
- オフィス系ソフト
- Ｅｘｃｅｌ ＶＢＡで値が重複する行を削除する
Ｅｘｃｅｌ２０００を使っています。 シートＡに数千件のデータがあります。 シートＢのＥ列にある文字とシートＡのＤ列の文字が重複する場合に、シートＡの重複するセルがある行を削除する（且つできれば行のデータを抜き出すＶＢＡを作ろうと考えています。 最近ＶＢＡの初心者本をやっと理解したところで、ちんぷんかんぷんとまではいかないけど、知恵熱がでました。 仕事なので自分でなんとかすべきかと思いますが、きっかけの調べ方がまずわからない。 どなたか、解かるきっかけだけでも与えて頂けないでしょうか。とくに、別シートの値と重複する値を探す場合に何をいれるかわかればきっと道は開けると思うんですが…。 初めての質問なので、質問内容が至らなかったらもうしわけありません。
- 締切済み
- オフィス系ソフト
- エクセルVBAでセル選択
エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！
- ベストアンサー
- オフィス系ソフト
お礼
忠告ならびにご教授ありがとうございます。今回回答頂いた方のVBAから考え方を学び今後のプログラムに生かすつもりです。